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PREFACE 


The Interactive System Productivity Facility (ISPF) is a dialog manager for 
interactive applications. It provides control and services for dialogs executed in 
the MVS and VM/SP environments. 


This publication, which supplements ISPF Dialog Management Services (SC34-2088), 
provides examples of how dialogs invoke ISPF services. The examples appear in the 
context of implementations of an "employee records" application and a "telephone 
book" application. Each application includes a description of the application and 
listings of dialog components (dialog functions, selection and data entry panel 
definitions, messages, and file tailoring skeletons) required to process the 
application under ISPF. 


Example dialog functions are provided for both applications in the following command 
procedures and programming languages: 


e Command Procedures 

-  CLIST 

—-  EXEC2 
. Programming Languages 

—- COBOL 

— FORTRAN 

- PL/I 
It is assumed that the reader is an application or systems programmer, engaged in 
program development, who is familiar with one or more of the command procedures or 
programming languages listed above. 
ISPF Dialog Management Services, SC34-2088, is a prerequisite publication. It 
contains a detailed description of ISPF services and related information required to 


develop an interactive application that runs under ISPF. 


The following publications contain additional information related to the indicated 
environment: 


MVS VM/SP 


SC34-2084 $SC34-2083 ISPF Installation and Customization provides information 
needed to install ISPF and the ISPF/Program Development 
Facility (PDF) and to custom tailor these program products 
for a particular installation. 


Preface iii 


SC34-2089 SC34-2090 ISPF/PDF Reference describes how to use the program 
development facility. PDF includes aids for J 
ISPF dialog creation and testing. 


TERMINOLOGY 


In this publication the following terms are used to bridge the differences in 
terminology between the MVS and VM/SP environments: 


° Library - A partitioned data set in the MVS environment, or a MACLIB in the 
VM/SP environment. 


File - A sequential data set in the MVS environment, or a sequential CMS file in 
the VM/SP environment. 


e Command Procedure - A CLIST in the MVS environment, or an EXEC (coded in EXEC2 
language) in the VM/SP environment. 
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EXAMPLE 1. EMPLOYEE RECORDS APPLICATION 


This section describes implementations of an "employee records" application dialog. 
The implementations include dialog functions coded in: 


e CLIST 

e =r EXEC2 

e COBOL 

e FORTRAN 
e =6PL/I 
OVERVIEW 


The employee records dialog provides facilities for creating, maintaining, and 
displaying a table of employee information: serial number, name, address, and phone 
number. Information for each employee is maintained in a row of an ISPF table. The 
employee serial number is the KEY field for the table. 


DIALOG COMPONENTS 


Dialog components that implement the employee records application are: 


e A primary option menu (EMPL) that receives control when the application is 
invoked. 


° A function (EMPLFN) that receives control from the primary option menu (EMPL) 
and performs the add, update, or delete processing requested for the employee 
record. 


¢ Two data entry panel definitions (EMPLA and EMPLB) that are displayed by the 
function EMPLFN. Data entry panel EMPLA is used to obtain the employee serial 
number for which information is to be entered on the next data entry panel 
displayed (EMPLB). EMPLB is used to obtain the user's desired action (add, 
update, delete) and the new or changed employee record information, if required. 


° A set of message definitions (EMPX21) that are used by the panels and functions 
to display information, including error conditions, on the panel message lines. 
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INVOCATION ) 
The primary option menu, EMPL, may be invoked by: 
° Including it as a selectable item on a higher-level menu. 
e Specifying 'PANEL(EMPL)' on the ISPSTART command when initiating ISPF. 
e Defining a command in the system command table or in an application command 
table with the action 'SELECT PANEL(EMPL)'. The NEWAPPL or NEWPOOL keywords may 
optionally be included in the SELECT action. i 


DESCRIPTION OF PROCESSING 


The organization of the dialog is shown in Figure l. 


EMPL 


— 
— 


| 

| V V V V 

| 

V EMPLFN EMPLA 
a a | so rr 
| | * * EMPLB 
| DIALOG H———————>* DATA ENTRY *— F 
| FUNCTION | * PANELS ko 
| ra % * 
Lo —————— se ¥ 

* * 


Figure 1. Organization of Employee Records Application 


The dialog begins with display of the primary option menu, from which several 
options are selectable. Only the first option is implemented in this example. When 
the first option is selected, the menu invokes the dialog function named EMPLFN. 


Function EMPLFN processing begins by using the TBOPEN service to open the employee 
table named EMPLTBL. If the table does not exist (first execution of the function), 
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the function invokes TBCREATE to create it. Then the function invokes the DISPLAY 
service to display the first data entry panel (EMPLA). 


The employee serial number, entered by the user on the first data entry panel, is 
checked (via VER statements in the panel )PROC section) to verify that it consists 
of six numeric digits. The employee serial is defined as the key variable for the 
employee table when it is created by the TBCREATE service, and will be used to 
locate information in the table. 


When control is returned, the function invokes the TBGET service to attempt to find 
information for the current user in the employee table. Based on this attempt, 
variables to be displayed on the second data entry panel (EMPLB) are initialized as 
follows: 


e If employee information is not in the table for the current user, the "type of 
change" field on panel EMPLB is initialized to NEW and the other input fields on 
the panel are initialized to blanks. 


: If the employee information is found in the table for the current user, the 
"type of change” field on panel EMPLB is initialized to UPDATE (the user may 
change it to DELETE). 


After the user has correctly entered requested information on the panel EMPLB and 
pressed the ENTER key, the function updates the employee table using TBADD (for 
NEW), TBPUT (for UPDATE), or TBDELETE (for DELETE). The function then redisplays 
the first data entry panel (EMPLA), this time with a confirmation message. It also 
writes this message to the log file using the LOG service. 


If the user enters the END command from the second data entry panel (EMPLB), the 
first panel is redisplayed, no changes are made in the table, and the confirmation 
message is not displayed and is not written to the log file. 

When the first data entry panel is redisplayed, the user may enter the same or 
another employee serial number and the process is repeated. When the user enters 
the END command from the first panel, the function closes the employee table using 
the TBCLOSE service and completes execution. The primary option menu from which the 
function was invoked is then redisplayed. At this point the user may select another 
option from the primary option menu. 

DIALOG COMPONENTS APPLICABLE TO ALL IMPLEMENTATIONS 

Dialog components applicable to all of the implementations are: 

e First and second data entry panels (EMPLA and EMPLB) 

bd Messages used by the application (EMPX21) 


These components are shown in the following sections. 
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FIRST DATA ENTRY PANEL EMPLA 


Definition and display of data entry panel EMPLA are shown below. 


Panel Definition 


ee EMPLOYEE SERIAL ------------------------------------ 
“COMMAND ===> ZCMD 
+ 


*ENTER EMPLOYEE SERIAL BELOW: 


EMPLOYEE SERIAL% 


> EMPSER+ (MUST BE 6 NUMERIC DIGITS) 


t++eett 


+PRESSZENTER+TO DISPLAY EMPLOYEE RECORD. 
+ENTER%END COMMAND+TO RETURN TO PREVIOUS MENU. 
) PROC 

VER (&EMPSER , NONBLANK) 

VER (&EMPSER, PICT , NNNNNN) 
) END 


Panel Display 


COMMAND ===> 


ENTER EMPLOYEE SERIAL BELOW: 


EMPLOYEE SERIAL ===> 121212_ (MUST BE 6 NUMERIC DIGITS) 


PRESS ENTER TO DISPLAY EMPLOYEE RECORD. 
ENTER END COMMAND TO RETURN TO PREVIOUS MENU. 
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SECOND DATA ENTRY PANEL EMPLB 


C 


Definition and display of data entry panel EMPLB are shown below. 


Panel Definition 


% Ee ee ee a ee 
%COMMAND ===>  ZCMD 


EMPLOYEE SERIAL: &EMPSER 


TYPE OF CHANGE%===>_ TYPECHG + 
: EMPLOYEE NAME: 
LAST %===>_LNAME + 
FIRST %===> FNAME + 


INITIAL%===>_I+&RBL 


HOME ADDRESS: 
LINE 1 %===>_ADDR1 
LINE 2 %===>_ADDR2 
LINE 3 %===>_ADDR3 
LINE 4 %===>_ ADDR4 


HOME PHONE: 
AREA CODE %===>_PHA+ 
LOCAL NUMBER%===> PHNUM + 


Vette tteteteteeteeteeteet tact 


INIT 
.CURSOR = TYPECHG 
. IF (&PHA =' ') 
&PHA = 914 
&TYPECHG = 
) PROC 
: &TYPECHG = TRUNC (&TYPECHG, 1) 
VER (&TYPECHG, LIST,N,U,D,MSG=EMPX210) 
IF (&TYPECHG = N) 
IF (&CHKTYPE 7= N) 
.MSG = EMPX211 
IF (&TYPECHG -= N) 
IF (&CHKTYPE = N) 
.MSG = EMPX212 
(&LNAME , ALPHA) 
(&FNAME , ALPHA) 
(&I , ALPHA) 
(&PHA ,NUM) 
(&PHNUM , PICT, 'NNN-NNNN' ) 


VER 
VER 
VER 
VER 
VER 


(NEW, UPDATE, OR DELETE) 


+++ 


TRANS (&TYPECHG N,NEW U,UPDATE D,DELETE) 


Example 1. Employee Records Application 5 


IF (&TYPECHG = N,U) 
VER (&LNAME ,NONBLANK ,MSG=EMPX214) 
VER (&FNAME , NONBLANK ,MSG=EMPX2 13) 
VER (&ADDR1,NONBLANK ,MSG=EMPX215) 
VER (&ADDR2,NONBLANK , MSG=EMPX215) 
VER (&ADDR3,NONBLANK , MSG=EMPX215) 


)END 


Panel Display 


COMMAND ===> 


EMPLOYEE SERIAL: 121212 


TYPE OF CHANGE 


EMPLOYEE NAME: 


LAST ===> 
FIRST ===> 
INITIAL === 
LINE 1 == 
LINE 2 ===> 
LINE 3 ===> 
LINE 4 ===> 
HOME PHONE: 
AREA CODE 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| HOME ADDRESS: 
| 

| 

| 

| 

| 

| LOCAL NUMBER 
| 

| 


===> NEW (NEW, UPDATE, OR DELETE) 


JONES 
FRANKLIN 
A 


123 MAIN STREET 
ANYTOWN 

NEW YORK 

12601 


===> 914 
===> 892-1234. 
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MESSAGE DEFINITIONS EMPX21 


EMPX210 ‘INVALID TYPE OF CHANGE' . ALARM=YES 
'TYPE OF CHANGE MUST BE NEW, UPDATE, OR DELETE. ' 


EMPX211 ‘TYPE ''NEW'' INVALID’ . ALARM=YES 
"EMPLOYEE SERIAL &EMPSER ALREADY EXISTS. CANNOT BE SPECIFIED AS NEW.' 


EMPX212 ‘UPDATE OR DELETE INVALID' . ALARM=YES 
"EMPLOYEE SERIAL &EMPSER IS NEW. CANNOT SPECIFY UPDATE OR DELETE. ' 


EMPX213 ‘ENTER FIRST NAME' . ALARM=YES 
"EMPLOYEE NAME MUST BE ENTERED FOR TYPE OF CHANGE = NEW OR UPDATE. ' 


EMPX214 ‘ENTER LAST NAME' . ALARM=YES 
‘EMPLOYEE NAME MUST BE ENTERED FOR TYPE OF CHANGE = NEW OR UPDATE. ' 


EMPX215 ‘ENTER HOME ADDRESS' . ALARM=YES 
"HOME ADDRESS MUST BE ENTERED FOR TYPE OF CHANGE = NEW OR UPDATE. ' 


EMPX217 '&EMPSER ADDED' 
"EMPLOYEE &LNAME, &FNAME &I ADDED TO FILE.' 


EMPX218 '&EMPSER UPDATED’ 
"RECORDS FOR &LNAME, &FNAME &I UPDATED. ' 


EMPX219 'S&EMPSER DELETED' 
"RECORDS FOR &LNAME, &FNAME &1I DELETED. ' 
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CLIST IMPLEMENTATION 


The components listed under "Dialog Components Applicable to All Implementations," 
and the following are required for the CLIST implementation of the dialog: 


: Primary option menu definition EMPL 


° Function EMPLFN 


CLIST - PRIMARY OPTION MENU EMPL 


Definition and display of primary option menu EMPL are shown below. 


Panel Definition 


% SELECT OPTION ===>_ZCMD 


% 1 +MODIFY - ADD, UPDATE, OR DELETE EMPLOYEE RECORDS 
% 2 +(FUTURE) - FUNCTION NOT YET AVAILABLE 
% 3 +(FUTURE) FUNCTION NOT YET AVAILABLE 
%  4& +(FUTURE) FUNCTION NOT YET AVAILABLE 


% 5 +(FUTURE) - FUNCTION NOT YET AVAILABLE 
4 

+ENTER%END COMMAND+TO TERMINATE. 

) PROC 


&ZSEL = TRANS( TRUNC (&ZCMD,'.') 
1, 'CMD(EMPLFN)' 
)END 


Panel Display 
ae er ge ee Pg ee Gy ee RIT Ys et a PP se 


eee EMPLOYEE RECORDS ----------------------------- 


SELECT OPTION ===> 1]_ 
1 MODIFY - ADD, UPDATE, OR DELETE EMPLOYEE RECORDS 
2 (FUTURE) - FUNCTION NOT YET AVAILABLE 
3 (FUTURE) - FUNCTION NOT YET AVAILABLE 
4 (FUTURE) - FUNCTION NOT YET AVAILABLE 
5 (FUTURE) - FUNCTION NOT YET AVAILABLE 


ENTER END COMMAND TO TERMINATE. 


— ———— ee a 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


SS ee eS 
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CLIST - FUNCTION EMPLFN 


PROC 0 
CONTROL MAIN 


/* SET CONTROL TO RETURN TO CLIST FOR ALL ISPF SERVICE ERRORS 
ISPEXEC CONTROL ERRORS RETURN 


/* INITIALIZE LOOP CONTROL AND MESSAGE VARIABLES 


SET &STATE 
SET &MSG 


/* 


a 


OPEN EMPLOYEE TABLE 


ISPEXEC TBOPEN EMPLTBL 


/* IF EMPLOYEE TABLE DOES NOT EXIST, CREATE IT 


IF 


&LASTCC -= 0 THEN + 


ISPEXEC TBCREATE EMPLTBL KEYS(EMPSER) 


+ 


NAMES (LNAME FNAME I ADDR1 ADDR2 ADDR3 ADDR4& PHA _ PHNUM) 


/* DISPLAY DATA ENTRY PANEL TO OBTAIN EMPLOYEE NUMBER FOR PROCESSING 
UNTIL END OR RETURN COMMAND RECEIVED IN RESPONSE TO DISPLAY 


/* 
/* 
DO 


(&STATE = 4) 
WHILE &STATE 7= 4 


ISPEXEC DISPLAY  PANEL(EMPLA) MSG(&MSG) 


/* IF RESPONSE IS END OR RETURN SET &STATE = 4 AND GO CHECK FOR MESSAGE 


/ ve 


/ ¥ 


/ ve 


/* 
/* 


IF &LASTCC=8 THEN SET &STATE =4 


ELSE, PROCESS EMPLOYEE NUMBER ENTERED 
ELSE DO 


RESET CONTROL VARIABLE (&STATE) AND MESSAGE VARIABLE (&MSG) 


SET &MSG = 
SET &STATE =2 


GET ROW SPECIFIED BY EMPLOYEE NUMBER FROM THE TABLE 


ISPEXEC TBGET EMPLTBL 


IF THE ROW WAS FOUND SET THE TYPE OF CHANGE TO UPDATE (VU) 
AND SKIP INITIALIZATION PROCESSING FOR A NEW ROW 


IF &LASTCC=0 THEN SET &TYPECHG = U 
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/* ELSE SET TYPE OF CHANGE TO NEW (N) AND INITIALIZE THE TABLE VARIABLES 
ELSE DO 

SET &TYPECHG 
SET &LNAME 
SET &FNAME 
SET &l 
SET &ADDR1 
SET &ADDR2 
SET &ADDR3 
SET &ADDR4 
SET &PHA 
SET &PHNUM 
END 


N 


/* SAVE TYPE OF CHANGE FOR VALIDITY CHECKING ON DATA ENTRY PANEL 
SET &CHKTYPE = &TYPECHG 


/* DISPLAY DATA ENTRY PANEL TO OBTAIN EMPLOYEE DATA 
ISPEXEC DISPLAY PANEL(EMPLB) 


/* IF END OR RETURN NOT RECEIVED IN RESPONSE ROW PROCESSING 
IF &LASTCC -= 8 THEN DO 


/* IF TYPE OF CHANGE IS NEW, ADD NEW ROW TO TABLE AND 
/* SET MESSAGE TO INDICATE EMPLOYEE ADDED TO TABLE 
IF &TYPECHG = N THEN DO 
ISPEXEC TBADD EMPLTBL 
SET &MSG = EMPX217 
END 


/* IF TYPE OF CHANGE IS UPDATE, PUT NEW EMPLOYEE DATA TO TABLE TO 
/* EXISTING ROW FOR THAT EMPLOYEE AND SET THE ROW UPDATED MESSAGE 
ELSE DO 
IF &TYPECHG = U THEN DO 
ISPEXEC TBPUT EMPLTBL 
SET &MSG = EMPX218 
END 


* IF USER CHANGED TYPE OF CHANGE ON DATA ENTRY PANEL TO OTHER THAN 
* NEW (N) OR UPDATE (U), DELETE THE ROW FROM THE TABLE AND SET THE 
* ROW DELETED MESSAGE 
ELSE DO 
ISPEXEC TBDELETE EMPLTBL 
SET &MSG = EMPX219 
END 


i 


END 
END 
END 


/* LOG ANY OUTSTANDING MESSAGE AND GO CHECK FOR ANOTHER EMPLOYEE NUMBER 
IF &MSG 7= THEN ISPEXEC LOG MSG(&MSG) 
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/* END OF DO WHILE LOOP 

END 

/* USER HAS RESPONDED WITH END OR RETURN TO EMPLOYEE NUMBER OR 

/* EMPLOYEE DATA PANEL, WRITE THE PROCESSED EMPLOYEE TABLE TO 

/* DASD AND CLOSE IT 

ISPEXEC TBCLOSE EMPLTBL 

/* RETURN TO THE SELECTION MENU FOR THE EMPLOYEE APPLICATION (EMPL) 

EXIT CODE (0) 

END 

EXEC2 IMPLEMENTATION 

In addition to the components listed under "Dialog Components Applicable to All 
Implementations,” the following components are required for the EXEC2 implementation 
of the dialog: 


: Primary option menu definition EMPL 

° Function EMPLFN 

EXEC2 - PRIMARY OPTION MENU EMPL 

Definition of primary option menu EMPL is shown below, followed by the panel as 


displayed. 


Panel Definition 


% SELECT OPTION ===>_ZCMD 


% 1 +MODIFY - ADD, UPDATE, OR DELETE EMPLOYEE RECORDS 
% 2 +(FUTURE) - FUNCTION NOT YET AVAILABLE 

% 3 +(FUTURE) - FUNCTION NOT YET AVAILABLE 

% 4 +(FUTURE) - FUNCTION NOT YET AVAILABLE 

% § +(FUTURE) - FUNCTION NOT YET AVAILABLE 

+ 

+ENTER%END COMMAND+TO TERMINATE. 

) PROC 


&ZSEL = TRANS( TRUNC (&ZCMD,'.') 
1, 'CMD(EMPLFN) ' 
END 


Example 1. Employee Records Application 11 


Panel Display ) | 


SELECT OPTION ===> 1_ 


1 MODIFY - ADD, UPDATE, OR DELETE EMPLOYEE RECORDS 
2 (FUTURE) - FUNCTION NOT YET AVAILABLE 

3 

4 (FUTURE) - FUNCTION NOT YET AVAILABLE 

5 (FUTURE) - FUNCTION NOT YET AVAILABLE 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| ENTER END COMMAND TO TERMINATE. 
| 

| 


| 
| 
| 
(FUTURE) - FUNCTION NOT YET AVAILABLE | : 
| 
| 
| 
| 
| 
| 


EXEC2 - FUNCTION EMPLFN 


&TRACE 
* SET UP EXEC2 AND SUBCOMMAND ENVIRONMENT FOR ISPF DIALOG FUNCTION 
&PRESUME &SUBCOMMAND ISPEXEC 


* SET UP CONTROL FOR RETURN TO FUNCTION ON ISPF SERVICE ERRORS JY 
* 12 OR GREATER. 
ISPEXEC CONTROL ERRORS RETURN 


* INITIAL LOOP CONTROL VARIABLE AND MESSAGE VARIABLE 
&STATE 1 
&MSG & BLANK 


* SET UP TABLE NAME VARIABLES NAME LIST FOR TBCREATE 


&NAME1 = &CONCAT OF ( &BLANK LNAME &BLANK FNAME &BLANK I &BLANK ADDR1 “ 
&NAME2 = &CONCAT OF &BLANK ADDR2 &BLANK ADDR3 &BLANK ADDR4 &BLANK 

&NAME3 = &CONCAT OF PHA &BLANK PHNUM &BLANK ) 

&NAMES = &CONCAT OF &NAME1 &NAME2 &NAME3 


* OPEN EMPLOYEE TABLE 
ISPEXEC TBOPEN EMPLTBL 


* IF TABLE DOESN'T EXIST, CREATE NEW ONE 
&IF &RC = 0 &GOTO -ESISTE 
ISPEXEC TBCREATE EMPLTBL KEYS ( EMPSER ) NAMES &NAMES REPLACE 


-ESISTE 
* CONTINUE TO DISPLAY DATE ENTRY PANEL TO OBTAIN EMPLOYEE NUMBER FROM 
* USER UNTIL THE USER RESPONDS WITH END OR RETURN. 
&LOOP -FLOOP WHILE &STATE -=4 
ISPEXEC DISPLAY PANEL(EMPLA) MSG ( &MSG ) 


12 ISPF Dialog Management Services Examples 


* IF USER RESPONDS TO PANEL WITH END OR RETURN, GO SET LOOP CONTROL 
* VARIABLE (&STATE) TO 4. 
&IF &RC = 8 &GOTO -STATE4 


* OTHERWISE REINITIALIZE THE LOOP CONTROL AND MESSAGE VARIABLES AND 
* GET THE ROW FOR THE SPECIFIED EMPLOYEE NUMBER FROM THE TABLE 
&MSG = &BLANK 
&STATE = 2 
ISPEXEC TBGET EMPLTBL 


-FIRPAN 
* IF THE ROW FOR THE SPECIFIED EMPLOYEE NUMBER IS FOUND GO SET UP 
* AN UPDATE TYPE OF CHANGE TO THE TABLE 

&IF &RC = 0 &GOTO -UPDATE2 


* OTHERWISE, SET THE TYPE OF CHANGE TO NEW ROW, INITIALIZE THE TABLE 
* VARIABLES TO BLANK, AND GO GET THE ROW DATA. 


&TYPECHG = N 
&LNAME = &BLANK 
&FNAME = &BLANK 
&I = &BLANK 
&ADDR1 = &BLANK 
&ADDR2 = &BLANK 
&ADDR3 = &BLANK 
&ADDR&4 = &BLANK 
&PHA = &BLANK 
&PHNUM = &BLANK 
&GOTO -NEW 


-UPDATE2 
* SET THE TYPE OF CHANGE FOR THE ROW TO UPDATE 
&TYPECHG = U 


-NEW 
* SAVE TYPE OF CHANGE FOR VALIDITY CHECKING IN DATA ENTRY PANEL 
&CHKTYPE = &TYPECHG 


* DISPLAY DATA ENTRY PANEL TO OBTAIN NEW OR UPDATED EMPLOYEE DATA 
ISPEXEC DISPLAY PANEL(EMPLB) 


* IF RESPONSE TO REQUEST FOR EMPLOYEE DATA IS END OR RETURN, GO 
CHECK FOR ANOTHER EMPLOYEE NUMBER TO BE PROCESSED 
&IF &RC = 8 &GOTO -LATER 


3 


* ELSE, IF THE TYPE OF CHANGE IS NOT NEW, GO CHECK FOR UPDATE 
&IF &TYPECHG -= N &GOTO -NOTNEW 


* OTHERWISE, ADD ROW FOR NEW EMPLOYEE TO TABLE, SET ROW ADDED 
MESSAGE, AND GO LOG MESSAGE 

ISPEXEC TBADD EMPLTBL 

&MSG = EMPX217 

&GOTO -LOGMSG 


+ 
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-~NOTNEW 


* IF TYPE OF CHANGE IS NOT UPDATE, GO PROCESS DELETE FUNCTION 


&IF &TYPECHG -= U &GOTO -UPDATE1 


* FOR UPDATED ROW, PUT UPDATED EMPLOYEE DATA TO THE TABLE, SET 


* ROW UPDATED MESSAGE, AND GO LOG MESSGE 
ISPEXEC TBPUT EMPLTBL 
&MSG = EMPX218 
&GOTO -LOGMSG 


-UPDATE1 


* USER CHANGED TYPE OF CHANGE ON EMPLOYEE DATA PANEL TO DELETE, SO 
* DELETE SPECIFIED EMPLOYEE ROW FROM TABLE, SET DELETE MESSAGE, 


** ~~ AND GO LOG MESSAGE 
ISPEXEC TBDELETE EMPLTBL 
&MSG = EMPX219 
&GOTO -LOGMSG 


-STATE4 


* SET LOOP CONTROL VARIABLE TO 4 (END OR RETURN RECEIVED) 


* TO THE TOP OF THE LOOP 
&STATE = 4 


~LOGMSG 
* IF THERE IS AN OUTSTANDING MESSAGE LOG IT 
&IF &MSG = &BLANK &GOTO -LATER 

ISPEXEC LOG MSG ( &MSG ) 


-LATER 
* GO CHECK FOR ANOTHER EMPLOYEE NUMBER FOR PROCESSING 
&GOTO -ESISTE 


-FLOOP 
* WRITE THE EMPLOYEE TABLE TO DASD AND CLOSE IT 
ISPEXEC TBCLOSE EMPLTBL 


* RETURN TO THE EMPLOYEE APPLICATION SELECTION MENU 
&EXIT &RC 
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COBOL IMPLEMENTATION 


The components listed under "Dialog Components Applicable to All Implementations," 


and the following are required for the COBOL implementation of the dialog: 
° Primary option menu definition EMPL 


° Function EMPLFN 


COBOL - PRIMARY OPTION MENU EMPL 


Definition and display of primary option menu EMPL are shown below. 


Panel Definition 


% SELECT OPTION ===>_ZCMD 


% 1 +MODIFY - ADD, UPDATE, OR DELETE EMPLOYEE RECORDS 
% 2 +(FUTURE) FUNCTION NOT YET AVAILABLE 
% 3 +(FUTURE) FUNCTION NOT YET AVAILABLE 


% 4 +(FUTURE) - FUNCTION NOT YET AVAILABLE 
% 5 +(FUTURE) - FUNCTION NOT YET AVAILABLE 
+ 

+ENTERXZEND COMMAND+TO TERMINATE. 

) PROC 


&ZSEL = TRANS( TRUNC (&ZCMD,'.') 
1,'PGM(EMPLFN) ' 
)END 


Panel Display 


SELECT OPTION ===> 1_ 


1 MODIFY - ADD, UPDATE, OR DELETE EMPLOYEE RECORDS 
2 (FUTURE) - FUNCTION NOT YET AVAILABLE 
3. (FUTURE) - FUNCTION NOT YET AVAILABLE 
4 (FUTURE) - FUNCTION NOT YET AVAILABLE 
5 (FUTURE) - FUNCTION NOT YET AVAILABLE 


ENTER END COMMAND TO TERMINATE. 


ne 
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COBOL - FUNCTION EMPLFN 


000001 ID DIVISION. 
000002 PROGRAM-ID. 


000007 


EMPLFN 
000004 ENVIRONMENT DIVISION. 
000005 DATA DIVISION. 

000006 WORKING-STORAGE 


000008* DEFINE STORAGE 


000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 


000023* DEFINE AND 


000024 
000025 


O01 
7 
0 


O01 


EMPSER 
FNAME 
LNAME 
I 
ADDR1 
ADDR2 
ADDR3 
ADDR4 
PHA 
PHNUM 
MSG 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


TYPECHG PIC 
CHKTYPE PIC 


STATE 


SECTION. 


FOR DIALOG VARIABLES. 


X(6) 
X(16) 
X(16) 
X 
X(40) 
X(40) 
X(40) 
X(40) 
X(3) 
X(8) 
X(8) 
X 

X 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


SPACES. 
SPACES. 
SPACES. 
SPACE. 

SPACES. 
SPACES. 
SPACES. 
SPACES. 
SPACES. 
SPACES. 
SPACES. 
SPACE. 

SPACE. 


INITIALIZE LOOP CONTROL VARIABLE. 


PIC 


000026* DEFINE LENGTHS 
LEMPSER PIC 


000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
0600037 
000038 
000039 


000040* DEFINE DIALOG VARIABLE 


000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
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PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


LTYPECH PIC 
LCHKTYP PIC 


NEMPSER PIC 


NPHNUM 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


NTYPECH PIC 
NCHKTYP PIC 


X 


VALUE 


sede Ds 


FOR DIALOG VARIABLES. 


9(6) 
9(6) 
9(6) 
9(6) 
9(6) 
9(6) 
9(6) 
9(6) 
9(6) 
9(6) 
9(6) 
9(6) 


X(8) 
X(7) 
X(7) 
X(3) 
X(7) 
X(7) 
X(7) 
X(7) 
X(5) 
X(7) 
X(9) 
X(9) 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


NAMES 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


6 COMP. 
COMP. 
COMP. 
1 COMP. 
COMP. 
COMP. 
COMP. 
COMP. 
3 COMP. 
8 COMP. 
1 COMP. 
1 COMP. 


FOR DIALOG SERVICE CALLS. 
''C(EMPSER)". 
"(FNAME)". 
"'(LNAME )"". 
hry": 
""(ADDR1)". 
"(ADDR2)". 
"'(ADDR3)". 
"'CADDR4)". 
"(PHA)". 
"'(PHNUM)". 
"(TYPECHG)". 
""(CHKTYPE)". 
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000053 


000054* DEFINE DATA ENTRY PANEL NAMES. 
000055 01 EMPLA 
000056 01 EMPLB 


000057 


PIC X(8) 
PIC X(8) 


000058* DEFINE EMPLOYEE TABLE NAME. 


000059 01 EMPLTBL PIC X(8) 


000060 


VALUE "EMPLA  ". 
VALUE "EMPLB  ". 


VALUE "EMPLTBL ". 


000061* DEFINE KEY VARIABLES PARAMETER FOR TABLE CREATE. 


000062 01 TABKEY PIC X(8) 


000063 


VALUE '"(EMPSER)". 


000064* DEFINE NAME VARIABLES PARAMETER FOR TABLE CREATE. 


000065 01 TABVARS PIC X(49) 


000066 
000067 
000068 


VALUE 


"(LNAME FNAME I ADDR1 ADDR2 ADDR3 ADDR4 PHA PHNUM)". 


EJECT 


000069* DEFINE DATA TYPE PARAMETER FOR VARIABLE DEFINE SERVICE CALL. 


000070 01 CHAR PIC X(8) VALUE ''CHAR oe 
000071 

000072* DEFINE DIALOG SERVICE TYPES FOR CALLS TO ISPF. 
000073 01 DISPLAYE PIC X(8) VALUE "DISPLAY ". 
000074 01 LOG PIC X(8) VALUE "LOG . 
000075 01 TBADD PIC X(8) VALUE "TBADD ". 
000076 01 TBCLOSE PIC X(8) VALUE "TBCLOSE ". 
000077 01 TBCREATE PIC X(8) VALUE "TBCREATE". 
000078 01 TBDELETE PIC X(8) VALUE "TBDELETE". 
000079 01 TBGET PIC X(8) VALUE "TBGET ". 
000080 01 TBOPEN PIC xX(8) VALUE "TBOPEN ". 
000081 01 TBPUT PIC X(8) VALUE "TBPUT ". 
000082 01 VDEFINE PIC xX(8) VALUE "VDEFINE ". 
000083 01 VRESET PIC X(8) VALUE "VRESET ". 
000084 

000085 

000086 


000087 PROCEDURE DIVISION. 


000088* CALL VDEFINE TO DEFINE DIALOG FUNCTION VARIABLES TO ISPF. 


000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 


Tee 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


"ISPLINK" 


USING VDEFINE 


NEMPSER EMPSER CHAR 


"TSPLINK" 
NFNAME 
"TSPLINK" 
NLNAME 
"TSPLINK" 
NI 
"TSPLINK" 
NADDR1 
"TSPLINK" 
NADDR2 
"TSPLINK" 
NADDR3 
"TSPLINK" 
NADDR4& 


USING VDEFINE 
FNAME CHAR 
USING VDEFINE 
LNAME CHAR 
USING VDEFINE 
I CHAR 
USING VDEFINE 
ADDR1 CHAR 
USING VDEFINE 
ADDR2 CHAR 
USING VDEFINE 
ADDR3 CHAR 
USING VDEFINE 
ADDR4 CHAR 


LEMPSER 
LFNAME 
LLNAME 
LI 
LADDR1 
LADDR2 
LADDR3 


LADDR4S 
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000105 CALL "ISPLINK" USING VDEFINE 


000106 NPHA PHA CHAR LPHA 
000107 CALL "ISPLINK" USING VDEFINE 

000108 NPHNUM PHNUM CHAR LPHNUM 
000109 CALL "ISPLINK" USING VDEFINE 

000110 NTYPECH TYPECHG CHAR LTYPECH 
000111 CALL "ISPLINK" USING VDEFINE 

000112 NCHKTYP CHKTYPE CHAR LCHKTYP 
000113 

000114* INITIALIZE MESSAGE DIALOG VARIABLE TO BLANK. 
000115 MOVE SPACES TO MSG 

000116 

000117* OPEN EMPLOYEE TABLE. 

000118 CALL "ISPLINK" USING TBOPEN EMPLTBL 
000119 

000120* IF EMPLOYEE TABLE DOES NOT EXIST CREATE IT. 
000121 IF RETURN-CODE NOT = 0 

000122 CALL "ISPLINK" USING TBCREATE EMPLTBL TABKEY TABVARS 
000123 


000124* GO PERFORM MAIN-LINE ROUTINE TO ADD, UPDATE, OR DELETE ROWS IN 
000125* THE EMPLOYEE TABLE UNTIL THE USER RESPONDS WITH END OR RETURN 
000126* INSTEAD OF AN EMPLOYEE NUMBER. 

000127 PERFORM MAIN-LINE UNTIL STATE = 4 

000128 

000129* WHEN THE USER HAS COMPLETED TABLE PROCESSING WRITE THE EMPLOYEE 
000130* TABLE TO DASD AND CLOSE IT. 


000131 CALL "ISPLINK" USING TBCLOSE EMPLTBL 

000132 

000133* RESET (REMOVE ADDRESSABILITY) ALL FUNCTION DIALOG VARIABLES. 
000134 CALL "ISPLINK" USING VRESET 

000135 

000136* RETURN TO THE APPLICATION SELECTION MENU. 

000137 MOVE 0 TO RETURN-CODE 

000138 GOBACK. 

000139 EJECT 

000140 


000141* MAIN-LINE ROUTINE FOR OBTAIN EMPLOYEE DATA AND PROCESSING 
000142* ROWS IN THE EMPLOYEE TABLE. 

000143 MAIN-LINE. 

000144 

000145* DISPLAY THE DATA ENTRY PANEL EMPLA TO OBTAIN AN EMPLOYEE 
000146* NUMBER FOR PROCESSING 

000147 CALL "ISPLINK" USING DISPLAY EMPLA MSG 

000148 

000149% IF END OR RETURN RECEIVED FROM PANEL SET LOOP CONTROL TO 
000150* 4 AND SKIP TABLE ROW PROCESSING. 


000151 IF RETURN-CODE = 8 
000152 MOVE 4 TO STATE 
000153 


000154* ELSE RESET MESSAGE VARIABLE TO BLANKS, SET LOOP CONTROL TO 
000155* 2, AND CONTINUE PROCESSING ROW. 
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000156 
000157 
000158 
000159 
000160* 
000161* 
000162* 
000163 
000164 
000165* 
000166* 
000167 
000168 
000169%* 
000170 
000171 
000172* 
000173%* 
000174 
000175 
000176* 
000177* 
000178 
000179 
000180 
000181 
§00182%* 
000183* 
000184 
000185 
000186 
000187 
000188* 
000189* 
000190* 
000191 
000192 
000193 
000194 
000195* 
000196 
000197 
000198 
000199%* 
000200* 
000201 
000202 
000203* 
000204* 


ELSE 
MOVE SPACES TO MSG 
MOVE 2 TO STATE 


GO PERFORM ROUTINE TO GET SPECIFIED ROW FROM THE TABLE AND 
SET TYPE OF CHANGE TO UPDATE IF IT EXIST OR TO NEW IF THE 
ROW DOES NOT EXIST. 

PERFORM TBGET-EMPLTBL 


SAVE THE TYPE OF CHANGE FOR VALIDATION ON EMPLOYEE INFORMATION 
DATA ENTRY PANEL. 
MOVE TYPECHG TO CHKTYPE 


DISPLAY DATA ENTRY PANEL EMPLB TO GET EMPLOYEE INFORMATION. 
CALL "ISPLINK" USING DISPLAY EMPLB 


IF END OR RETURN NOT RECEIVED FROM DATA ENTRY PANEL, PROCESS 
ROW IN TABLE WITH EMPLOYEE INFORMATION RECEIVED. 
IF RETURN-CODE NOT = 8 


IF TYPE OF CHANGE REQUESTED WAS NEW, ADD NEW ROW TO THE TABLE 
AND SET MESSAGE TO ROW ADDED. 
IF TYPECHG = "N" 
CALL "ISPLINK'' USING TBADD EMPLTBL 
MOVE "EMPX217 " TO MSG 


ELSE IF TYPE OF CHANGE REQUEST WAS UPDATE, UPDATE ROW WITH 
NEW EMPLOYEE INFORMATION AND SET MESSAGE TO ROW UPDATED. 
ELSE IF TYPECHG = "U" 
CALL "ISPLINK" USING TBPUT EMPLTBL 
MOVE "EMPX218 '" TO MSG 


OTHERWISE, USER REQUESTED DELETE FUNCTION ON EMPLOYEE 
INFORMATION DATA ENTRY PANEL. DELETE SPECIFIED ROW FROM 
THE TABLE AND SET MESSAGE TO ROW DELETED. 

ELSE 
CALL "ISPLINK'' USING TBDELETE EMPLTBL 
MOVE "EMPX219 " TO MSG. 


IF MESSAGE VARIABLE IS NOT BLANK, WRITE THE MESSAGE TO THE LOG. 
IF MSG NOT = SPACES 
CALL "ISPLINK'' USING LOG MSG. 


UPON COMPLETION OF ROW PROCESSING, OR IF END OR RETURN ENTERED 
RETURN TO CHECK IF ADDITIONAL EMPLOYEES ARE TO BE PROCESSED. 


ROUTINE TO GET EMPLOYEE ROW FROM TABLE AND SET TYPE OF 
ROW PROCESSING (TYPE OF CHANGE) TO BE PERFORMED. 


000205 TBGET-EMPLTBL. 


000206 
000207* 
000208 


GET ROW FOR SPECIFIED EMPLOYEE NUMBER FROM TABLE. 
CALL "ISPLINK" USING TBGET EMPLTBL 
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000209 


000210* IF ROW FOR EMPLOYEE NUMBER FOUND SET TYPE OF CHANGE TO UPDATE. 


000211 IF RETURN-CODE = 0 
000212 MOVE "U' TO TYPECHG 
000213 


000214* ELSE, SET TYPE OF CHANGE TO NEW AND INITIALIZE EMPLOYEE 


000215* VARIABLES TO BLANKS. 

000216 ELSE 

000217 MOVE "N" TO TYPECHG 

000218 MOVE SPACES TO LNAME 

000219 MOVE SPACES TO FNAME . 
000220 MOVE SPACES TO I 

000221 MOVE SPACES TO ADDR1 

000222 MOVE SPACES TO ADDR2 

000223 MOVE SPACES TO ADDR3 ; 
000224 MOVE SPACES TO ADDR4 

000230 MOVE SPACES TO PHA 

000300 MOVE SPACES TO PHNUM. 


FORTRAN IMPLEMENTATION 


The components listed under "Dialog Components Applicable to All Implementations," 


and the following are required for the FORTRAN implementation of the dialog: 


: Primary option menu definition EMPL 


: Function EMPLFN 


FORTRAN - PRIMARY OPTION MENU EMPL 


Definition and display of primary option menu EMPL are shown below. 


Panel Definition 


yon nn nee ren nnn n eee n nnn n ene e eee EMPLOYEE RECORDS ------------------------------ 
aa 

% SELECT OPTION ===> _ZCMD 

% 

% 1 +MODIFY - ADD, UPDATE, OR DELETE EMPLOYEE RECORDS 

% 2 +(FUTURE) - FUNCTION NOT YET AVAILABLE 


% 3 +(FUTURE) 
% 4 +(FUTURE) 
% 5 +(FUTURE) 


FUNCTION NOT YET AVAILABLE 
FUNCTION NOT YET AVAILABLE 
FUNCTION NOT YET AVAILABLE 


+ENTER%END COMMAND+TO TERMINATE. 
)PROC 
&ZSEL = TRANS( TRUNC (&ZCMD,'.') 
1, 'PGM(EMPLFN) ' 
END 
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( Panel Display 
er eS a — ee 


eee EMPLOYEE RECORDS ----------------------------- 


SELECT OPTION ===> 1_ 


1 MODIFY - ADD, UPDATE, OR DELETE EMPLOYEE RECORDS 
2 (FUTURE) - FUNCTION NOT YET AVAILABLE 
. 3. (FUTURE) - FUNCTION NOT YET AVAILABLE 
4 (FUTURE) - FUNCTION NOT YET AVAILABLE 
5 (FUTURE) - FUNCTION NOT YET AVAILABLE 


ENTER END COMMAND TO TERMINATE. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


eee eee eee eee EEE aan 


FORTRAN - FUNCTION EMPLFN 
C EMPLOYEE UPDATE FUNCTION 


C THE CALL TO ISPLINK IS DONE VIA AN ASSEMBLER PROCEDURE CALLED ISPLNK 
C WHICH IS A FUNCTION OF THE FORTRAN PROGRAM. IT IS INVOKED BY THE 

C STATEMENT LASTRC = ISPLNK( ARGLIST ). THE RETURN CODE FROM ISPLINK 
C IS RETURNED IN THE INTEGER LASTRC WHEN ISPLINK IS CALLED. 


C VARIABLES FOR FORTRAN PROGRAM EMPLFN 

C DEFAULT ALL VARIABLES TO INTEGERS OF LENGTH FOUR 

C ALL CHARACTER STRINGS ARE STORED IN ARRAYS WHICH ARE DEFINED 
C IN THE DIMENSION STATEMENTS. 


IMPLICIT INTEGER (A-Z) 

DIMENSION EMPSER(2) 

DIMENSION FNAME(4) , LNAME(4) 

DIMENSION ADDR1(10) , ADDR2(10) ,ADDR3(10) , ADDR4(10) 
DIMENSION PHNUM(2) ,MSG(2) ,MSG1(2) ,MSG2(2) ,MSG3(2) 


DATA N/'N'/ 

DATA U/'U'/ 

DATA BLNK4 /' "/ 

DATA MSG1 /'EMPX','217 '/ 
DATA MSG2 /'EMPX','218 a 


DATA MSG3 /'EMPX','219 '/ 
C VARIABLES DEFINED FOR DIALOG SERVICE USE 


LASTRC 
LASTRC 


LASTRC 
( LASTRC 


ISPLNK('VDEFINE', ' (EMPSER)' ,EMPSER, 'CHAR' ,8) 
ISPLNK('VDEFINE', ' (FNAME) ,FNAME, ‘CHAR’, 16) 

ISPLNK('VDEFINE' , ' (LNAME)' , LNAME, 'CHAR' ,16) 

ISPLNK('VDEFINE','(I)',1I,'CHAR’ ,4) 


fou ue a 
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LASTRC 
LASTRC 
LASTRC 
LASTRC 
LASTRC 
LASTRC 
LASTRC 
LASTRC 


ISPLNK('VDEFINE' ,'(ADDR1)',ADDR1, 'CHAR' ,40) 
ISPLNK('VDEFINE", ' (ADDR2)' ,ADDR2, 'CHAR' ,40) 
ISPLNK('VDEFINE" , ' (ADDR3)' ,ADDR3, 'CHAR' ,40) 
ISPLNK('VDEFINE' ,' (ADDR4)' ,ADDR4, 'CHAR' ,40) 
ISPLNK('VDEFINE' ,'(PHA)' ,PHA, 'CHAR' ,4) 
ISPLNK('VDEFINE' ,' (PHNUM)' , PHNUM, 'CHAR' ,8) 
ISPLNK('VDEFINE' ,' (CHKTYPE)' ,CHKTYP, 'CHAR' ,4) 
ISPLNK('VDEFINE' ,' (TYPECHG) ' , TYPCHG, 'CHAR' ,4) 


C START OF PROCEDURE 
C OPEN TABLE IF IT EXISTS, ELSE CREATE THE TABLE 
C TABLE NAME MUST BE SIX CHARACTERS AS IN FORTRAN 


pO 1J=1,2 
MSG(J) = BLNK4 
EMPSER(J) = BLNK4 
1 CONTINUE 
LASTRC = ISPLNK('TBOPEN','EMPLTBL ‘) 
IF(LASTRC.EQ.0) GO TO 10 


C TABLE DOES NOT EXIST SO CREATE IT 


LASTRC = ISPLNK('TBCREATE','EMPLTBL ','(EMPSER)", 
& '(LNAME FNAME I ADDR1 ADDR2 ADDR3 ADDR4 PHA PHNUM)') 


C SELECT EMPLOYEE 


10 CONTINUE 
LASTRC = ISPLNK('DISPLAY','EMPLA ',MSG) 


C TERMINATE IF END KEY PRESSED 


IF (LASTRC.EQ.8) GO TO 999 


C ELSE THE ENTER KEY WAS PRESSED 


DO 2 J=1,2 
MSG(J) = BLNK4 
2 CONTINUE 
LASTRC = ISPLNK('TBGET', 'EMPLTBL ') 


C IF RECORD EXSISTS THEN SET UPDATE FLAG, ELSE TYPE IS NEW 


IF(LASTRC.EQ.0) GO TO 25 
GO TO 30 
25 CONTINUE 
TYPCHG = U 
GO TO 32 


C INITIALIZE PANEL VARIABLES TO BLANKS VIA LOOPS 


30 CONTINUE 
TYPCHG = N 
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DO 3 J = 1,4 


LNAME(J) = BLNK4 
FNAME(J) = BLNK4 
3 CONTINUE 
PHA = BLNK4 
I = BLNK4 
DO 5 J = 1,10 
ADDR1(J) = BLNK4 
ADDR2(J) = BLNK4 
ADDR3(J) = BLNK4 
ADDR4(J) = BLNK4 
5 CONTINUE 
DO 6 J=1,2 
PHNUM(J)= BLNK4 
6 CONTINUE 


C SAVE TYPE OF CHANGE 


32 CONTINUE 
CHKTYP = TYPCHG 


C DISPLAY EMPLOYEE DATA 


LASTRC = ISPLNK('DISPLAY','EMPLB ') 
IF (LASTRC.EQ.8) GO TO 70 


C ENTER NEW EMPLOYEE 


IF (TYPCHG.EQ.N) GO TO 40 
GO TO 50 
C THEN 
C NEW 


40 CONTINUE 
LASTRC = ISPLNK('TBADD','EMPLTBL ') 
DO 8 J = 1,2 
MSG(J) = MSG1(J) 
8 CONTINUE 
GO TO 70 


C ELSE 
C CHECK IF UPDATE OR DELETE 


50 CONTINUE 
IF (TYPCHG.EQ.U) GO TO 55 
GO TO 60 


C THEN 
C UPDATE 


55 CONTINUE 


LASTRC = ISPLNK('TBPUT','EMPLTBL '> 
= 1,2 


3 


— FI 


Example 1. Employee Records Application 23 


MSG(J) = MSG2(J) 
9 CONTINUE 
GO TO 70 


C ELSE 
C DELETE 


60 CONTINUE 
LASTRC = ISPLNK('TBDELETE','EMPLTBL ') 
DO, J. 2 
MSG(J) = MSG3(J) 
11 CONTINUE 


C GO BACK TO START AND CHECK FOR ANOTHER ENTRY OR END KEY PRESSED 
70 CONTINUE 
IF(MSG(1).NE.BLNK4) LASTRC = ISPLNK('LOG', MSG) 
GO TO 10 
C DELETE VARIABLE DEFINITONS FOR EMPFPGM AND CLOSE EMPLTBL 


999 CONTINUE 


LASTRC = ISPLNK('TBCLOSE', 'EMPLTBL ') 
LASTRC = ISPLNK('VDELETE', '(EMPSER)') 
LASTRC = ISPLNK('VDELETE' , ' (FNAME) ' ) 
LASTRC = ISPLNK('VDELETE', ' (LNAME)') 
LASTRC = ISPLNK('VDELETE','(1)') 
LASTRC = ISPLNK('VDELETE','(ADDR1)') 
LASTRC = ISPLNK('VDELETE', ' (ADDR2)') 
LASTRC = ISPLNK('VDELETE' , ' (ADDR3)' ) 
LASTRC = ISPLNK('VDELETE' , ' (ADDR4)') 
LASTRC = ISPLNK('VDELETE','(PHA)') 
LASTRC = ISPLNK('VDELETE', ' (PHNUM)') 
LASTRC = ISPLNK('VDELETE', ' (TYPCHG)' ) 
LASTRC = ISPLNK('VDELETE', ' (CHKTYP)') 
STOP 

END 
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PL/I IMPLEMENTATION 


The components listed under "Dialog Components Applicable to All Implementations," 
and the following are required for the PL/I implementation of the dialog: 


Primary option menu definition EMPL 


Function EMPLFN 


PL/I - PRIMARY OPTION MENU DEFINITION EMPL 


Definition and display of primary option menu EMPL are shown below. 


Panel Definition 


% 
% 
% 


SELECT OPTION ===>_ZCMD 


1 +MODIFY - ADD, UPDATE, 
2 +(FUTURE) - FUNCTION NOT 
3 +(FUTURE) - FUNCTION NOT 
4 +(FUTURE) - FUNCTION NOT 
5 +(FUTURE) - FUNCTION NOT 


+ENTER%END COMMAND+TO TERMINATE. 
)PROC 


&ZSEL = TRANS( TRUNC (&ZCMD,'.' 
1,'PGM(EMPLFEN) ' 


)END 


Panel Display 


SELECT OPTION ===> 1_ 


1 MODIFY - ADD, UPDATE, OR DELETE EMPLOYEE RECORDS 

2 (FUTURE) - FUNCTION NOT YET AVAILABLE 

3. (FUTURE) - FUNCTION NOT YET AVAILABLE 

4 (FUTURE) - FUNCTION NOT YET AVAILABLE 

5 (FUTURE) - FUNCTION NOT YET AVAILABLE : 


ENTER END COMMAND TO TERMINATE. 


OR DELETE EMPLOYEE RECORDS 
YET AVAILABLE 
YET AVAILABLE 
YET AVAILABLE 
YET AVAILABLE 


) 


ee ee ee ee 
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PL/I - FUNCTION EMPLFN 


EMPLFN: PROC OPTIONS(MAIN); /*EMPLOYEE UPDATE FUNCTION */ 
%INCLUDE EMPLDCL; /*DCL & DEFINE VARIABLES*/ 
MSG =''; /*INITIALIZE MESSAGE  */ 
CALL ISPLINK('TBOPEN', 'EMPLTBL '); /*OPEN TABLE * / 
IF PLIRETV() 7= 0 THEN /*IF TABLE DOESN'T EXIST*/ 


CALL ISPLINK('TBCREATE', 'EMPLTBL ', '(EMPSER)', /*CREATE IT */ 
'(LNAME FNAME I ADDR1 ADDR2 ADDR3 ADDR4 PHA PHNUM)' ); 


DO WHILE (STATE 7-= '4'); /*LOOP UNTIL TERM SET */ 
CALL ISPLINK('DISPLAY', 'EMPLA ', MSG); /*SELECT EMPLOYEE */ 
IF PLIRETV() = 8 THEN /*IF END KEY PRESSED * / 

STATE = '4'; /* TERMINATE * / 
ELSE DO; /*ENTER KEY PRESSED * / 
MSG=' ' ; /*RESET MESSAGE * / 
STATE = '2'; /*PROCESS EMPLOYEE PANEL*/ 
CALL ISPLINK('TBGET', 'EMPLTBL '); /*OBTAIN EMPLOYEE DATA */ 
IF PLIRETV() = O THEN /*IF RECORD EXISTS * / 
TYPECHG ='U'; /* SET UPDATE FLAG * / 
ELSE DO; /*RECORD DOES NOT EXIST */ 
TYPECHG = 'N' ; /* SET TYPE = NEW * 
LNAME re /* * / 
FNAME SS Ms /* INITIALIZE * / 
I =" ' /* PANEL # / 
ADDR1 =‘ ' /* VARIABLES * / 
ADDR2 ='' ; /* TO NULLS * / 
ADDR3 =' ' /* * / 
ADDR4 =‘ ' ; /* * / 
PHA = /* % / 
PHNUM ='',; /* * / 
END; /* # / 
CHKTYPE = TYPECHG; /*SAVE TYPE OF CHANGE */ 
CALL ISPLINK('DISPLAY', 'EMPLB '); /*DISPLAY EMPLOYEE DATA */ 
IF PLIRETV() -= 8 THEN DO; /*END KEY NOT PRESSED */ 
IF TYPECHG = 'N' THEN DO; /*IF NEW EMPLOYEE * / 
CALL ISPLINK('TBADD', ‘EMPLTBL '); /* ADD TO TABLE * / 
MSG = 'EMPX217 '; /*EMPLOYEE ADDED MESSAGE*/ 
END; /* ¥ / 
ELSE DO; /* % / 
IF TYPECHG = 'U' THEN DO; /*IF UPDATE REQUESTED * 
CALL ISPLINK('TBPUT', 'EMPLTBL '); /* UPDATE TABLE * / 
MSG = 'EMPX218 '; /* UPDATE MESSAGE * / 
END; * * / 
ELSE DO; /*ELSE ASSUME DELETE * / 
CALL ISPLINK('TBDELETE', 'EMPLTBL '); 
MSG = 'EMPX219 ' ; /*EMPLOYEE DELETED MSG */ 
END; /* ¥ / 
END; /*END TABLE MODS * / 
END; /*END 2ND PANEL PROCESS */ 
END; /*END 1ST PANEL PROCESS */ 
IF MSG ~= ' ' THEN CALL ISPLINK('LOG', MSG); /*LOG MSG * / 
END; /*END DO LOOP * / 
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Cc 


CALL ISPLINK('TBCLOSE', 'EMPLTBL '); 


%INCLUDE EMPLDEL; 
RETURN(0); 
END EMPLFN; 


Included Segment EMPLDCL 


ale 
chy 


/*CLOSE TABLE 
/*DELETE DEFINED VARS 


/* DECLARE STATEMENTS AND VARIABLE DEFINITIONS FOR "EMPLFN" 


/ x 

DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 


/* LENGTH PARAMETER IN ‘CALL ISPLINK VDEFINE' MUST BE FULL WORD. 


/ * 

DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 


ct 
tr 
K< 
ro 
ep 
tH 
a 
| 


4 

> 

o 

) 

0) 

— 
nbd db ud we wet 


ISPLINK EXTERNAL ENTRY OPTIONS(ASM RETCODE) ; 
PLIRETV BUILTIN ; 
LENGTH BUILTIN ; 


RC FIXED BIN(31,0) INIT(0O) 
INIT((6)' ' 

INIT((16) ' 

INIT((16)' 


EMPSER 
FNAME 
LNAME 
I 
ADDR1 
ADDR2 
ADDR3 
ADDR4 
PHA 
PHNUM 
MSG 


CHAR(6) 
CHAR (16) 
CHAR(16) 
CHAR(1) 
CHAR(40) 
CHAR (40) 
CHAR (40) 
CHAR (40) 
CHAR (3) 
CHAR(8) 
CHAR(8) 


) 5 
pe 
ee 


INIT(' '); 


INIT((40)' ' 
INIT((40)' ' 
INIT((40)' ' 
INIT((40)' ' 


INIT((3)' 
INIT((8)' 
INIT((8)' 


TYPECHG CHAR(1) INIT(' 
CHKTYPE CHAR(1) INIT(' 


STATE CHAR(1) INIT('1'); 


LEMPSE 
LFNAME 
LLNAME 
LI 
LADDR1 
LADDR2 
LADDR3 
LADDR4 
LPHA 
LPHNUM 
LTYPEC 
LCHKTY 


R FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 

H FIXED 

P FIXED 


BIN(31,0) 
BIN(31,0) 
BIN(31,0) 
BIN(31,0) 
BIN(31,0) 
BIN(31,0) 
BIN(31,0) 
BIN(31,0) 
BIN(31,0) 
BIN(31,0) 
BIN(31,0) 
BIN(31,0) 


= LENGTH(EMPSER) 


LENGTH (FNAME ) 
LENGTH (LNAME ) 
LENGTH (1) 
LENGTH (ADDR1) 
LENGTH (ADDR2 ) 
LENGTH (ADDR3 ) 
LENGTH (ADDR4 ) 
LENGTH (PHA) 


NY NY WY VY 
we we we we 


3 
3 
5 
De 

oe 
/*INITIAL ENTRY STATE 
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oF 


aa 


ray 


die / 


we / 


LPHNUM = LENGTH(PHNUM) : 

LTYPECH = LENGTH(TYPECHG)  ; J 
LCHKTYP = LENGTH(CHKTYPE) _ ; 

/* * / 
/*DEFINE VARIABLES FOR DIALOG SERVICE USE * / 
/ ve ¥ / 
CALL ISPLINK('VDEFINE' ,'(EMPSER)',EMPSER,'CHAR',LEMPSER) ; 

CALL ISPLINK('VDEFINE' ,'(FNAME)' ,FNAME,'CHAR',LFNAME) ; 

CALL ISPLINK('VDEFINE' ,'(LNAME)',LNAME,'CHAR',LLNAME) ; 

CALL ISPLINK('VDEFINE','(1I)',I,'CHAR',LI) ; 

CALL ISPLINK('VDEFINE','(ADDR1)',ADDR1,'CHAR',LADDR1) ; 

CALL ISPLINK('VDEFINE','(ADDR2)',ADDR2,'CHAR',LADDR2) ; 

CALL ISPLINK('VDEFINE','(ADDR3)',ADDR3,'CHAR',LADDR3) ; 

CALL ISPLINK('VDEFINE','(ADDR4)',ADDR4, 'CHAR' ,LADDR4) ; 

CALL ISPLINK('VDEFINE' ,'(PHA)',PHA,'CHAR',LPHA) ; ; 
CALL ISPLINK('VDEFINE' ,'(PHNUM)',PHNUM,'CHAR',LPHNUM) ; 

CALL ISPLINK('VDEFINE' ,'(TYPECHG)' ,TYPECHG, 'CHAR' , LTYPECH) ; 

CALL ISPLINK('VDEFINE','(CHKTYPE)' ,CHKTYPE,'CHAR' , LCHKTYP) ; 

/ ri * / 
Included Segment EMPLDEL 

/ vw ry / 
[* DELETE VARIABLE DEFINITIONS FOR "EMPLFN"' dete / 
/* ve / 
CALL ISPLINK('VDELETE' ,'(EMPSER)'); - 
CALL ISPLINK('VDELETE','(FNAME)') ; 

CALL ISPLINK('VDELETE','(LNAME)') ; 

CALL ISPLINK('VDELETE','(I)') ; 

CALL ISPLINK('VDELETE','(ADDR1)') ; 

CALL ISPLINK('VDELETE','(ADDR2)') ; 

CALL ISPLINK('VDELETE','(ADDR3)') ; 

CALL ISPLINK('VDELETE','(ADDR4)') ; 

CALL ISPLINK('VDELETE','(PHA)')  ; 

CALL ISPLINK('VDELETE','(PHNUM)') ; 

CALL ISPLINK('VDELETE' ,'(TYPECHG)'); 

CALL ISPLINK('VDELETE' ,'(CHKTYPE)'); 
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EXAMPLE 2. TELEPHONE BOOK APPLICATION 


This section describes implementations of a "telephone book" application dialog. 
Provided implementations include dialog functions coded in: 


e CLIST 

e =EXEC2 

e COBOL 

e FORTRAN 
e PL/I 
OVERVIEW 


The telephone book application dialog creates, maintains, displays, and reports 
information about employees to be included in a telephone book. The information is 
saved in an ISPF table. Each row of the table contains the following information 
for each employee: 

. First name 

: Last name 

: Location 

: Phone number 

e Color of phone 

: Type of phone 

The employee last name is the KEY field for the table. 

The telephone book application dialog performs the following functions: 

° Displays the table using the table display facility. The user may scroll up and 
down in the table. If a row of the table is selected on the table display 
panel, the table will be positioned at that row for the next interaction. 

e Adds entries to the table. 


e Changes existing table entries. 


e Deletes table entries. 
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: Gets and displays the last entry in the table. 


¢ Modifies an entry in the table; if the entry does not exist, adds it to the 
table. 


: Sets the current table values displayed on the screen to blanks. 


° Uses file tailoring to produce a report on the contents of the table and stores 
the report as a member of the file tailoring output library. 


: Invokes the ISPF/PDF browse function to display the contents of the telephone 
book table report. 


° Invokes the ISPF/PDF edit function to allow display and edit of the contents of 
the telephone book table report. 


° Erases the telephone book table report from the file tailoring output library. 

° Reads a new copy of the telephone book table from the table input library. 

e Erases the telephone book table from the table output library. 

° Queries the table and displays the current number of rows in the table, the 
name(s) of the table key variable(s), and the names of the non-key variables in 


the table. 


° Scans the table for a row that matches any combination of table variable values 
specified. 


e Rescans the title for another row that matches the variable values from the 
previous scan. 


° Searches the table for a row with a specified key variable value. 


° Saves the table on disk. 


DIALOG COMPONENTS 


The dialog components that implement the telephone book application are: 


° A main function routine (TELEBOOK), which receives control when the telephone 
book dialog is invoked. 


° A combined selection and data entry panel, which is SELECTed by the main 
function routine. This panel is named: 


= CPANEL1, for CLIST and EXEC2 implementations 
= TPANEL1, for COBOL and PL/I implementations) 


— FPANEL1, for the FORTRAN implementation 
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A subfunction routine (TELESRVC), which is invoked from the selection panel by 
the SELECT service to perform all of the table maintenance, display, and report 
functions. 


A table display panel (TPANEL2), which is used by the subfunction routine to 
display the contents of a telephone book table. 


A display panel (TPANEL3), which is used by the subfunction to display the 
number of rows and variable names contained in the telephone book table. 


A set of message definitions (TELBO1, TELBO2), which are used by the panels and 
functions to display information and error conditions on the panel message 
lines. 


A file skeleton (TELBOOK), which is used by the subfunction routine to build a 
report on the contents of the telephone book table. 


The organization of the dialog is shown in Figure 2. 


INVOCATION 


The main function routine (TELEBOOK) receives control when the telephone book dialog 
is invoked. The dialog may be invoked by any of the following mechanisms: 


When invoking ISPF, the telephone book dialog may be specified on the ISPSTART 
command : 


—- For CLIST and EXEC2 implementations: 
ISPSTART CMD(TELEBOOK) 

= For COBOL, FORTRAN, and PL/I implementations: 
ISPSTART PGM(TELEBOOK) 


When ISPF is already active, the dialog may be invoked from any selection panel 
on which it appears as an option. The &ZSEL variable in the processing section 
for the selection panel would have to include the telephone book application 
option as follows: 


&ZSEL = TRAN (TRUNC (&ZCMD, '.') 


'x', 'CMD(TELEBOOK) 'NEWAPPL' 
OR 
'x', 'PGM(TELEBOOK) 'NEWAPPL' 


where 'x' is the option defined in the displayable portion of the selection 
panel for the telephone book dialog. 'CMD(TELEBOOK)' is used if the dialog 
function is implemented in CLIST or EXEC2. 'PGM(TELEBOOK)' is used if the 
dialog function is implemented in COBOL, FORTRAN, or PL/1. 
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TELEBOOK 


en On ee ee 
| DIALOG | 
| FUNCTION | 


|___ 


| 
| 
| 
| CPANEL1, FPANEL1, 
Vor TPANEL1 


* COMBINED * 
** SELECTION AND * 
* DATA ENTRY * 


* PANEL * 

| 

| 

| 

| 

V TELESRVC TPANEL2 
OT a 
| | * * TPANEL3 
| DIALOG }+_—————>* DATA ENTRY *— 
| FUNCTION | * PANELS eo 
| w w ¥ 
| —————— te 

* * 


Figure 2. Organization of Telephone Book Application 


e When ISPF is already active, the dialog may also be invoked from the command 
line of any selection panel or display panel if the active application's command 


table or the system command table contains the following entry: 


'ZCTVERB = TELEBOOK' 


'ZCTTRUNC = 3' or any value 2 or greater that makes the command 
verb unique in the user's system. 


'ZCTACT = SELECT CMD(TELEBOOK) NEWAPPL' if the function routines 
are implemented as TSO CLIST or VM EXEC2 routines. 


'ZCTACT = SELECT PGM(TELEBOOK) NEWAPPL' if the function routines 
are implemented as COBOL, FORTRAN, or PL/1 programs. 
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The application identifier is not specified with the 'NEWAPPL' keyword because the 
telephone book application dialog does not require its own profile variable and or 
command table. The 'NEWAPPL' keyword is optional and may be omitted if shared 
variable pool variables defined by the telephone book application dialog do not 
conflict with variables defined by other applications implemented under ISPF in the 
system. 


DESCRIPTION OF PROCESSING 

Application processing, performed by functions and the )PROC section of panels, is 
described below. 

MAIN FUNCTION ROUTINE TELEBOOK 


The main function routine performs the following processing: 


: Opens the telephone book table (TELEBOOK) in write mode or creates a new table 
if it does not exist. 


: Initializes the table variable in the shared variable pool to the values 
contained in the first row of the table. 


: Calls ISPF SELECT to display the combined selection/data entry panel. 
° Closes the table, sets a termination message via the SETMSG service, and 


terminates when the user enters END or RETURN in response to the selection/data 
entry panel. 


COMBINED SELECTION AND DATA ENTRY PANEL CPANEL1, FPANEL1, OR 

TPANEL1 

Because a different interface is required to invoke functions written as TSO CLISTs 

and VM EXEC2 routines (i.e., SELECT CMD ...) and functions written in a programming 

language (i.e., SELECT PGM ...), multiple versions of this panel are shown. 

The combined selection and data entry panel provides the following: 

e Displays a list of all of the table maintenance, display, and report functions. 

e Provides data entry fields for all of the variables in a row of the table. When 
the panel is displayed, these fields contain the values of the current table row 


except following a 'blank' row request. 


e The user may modify the values in the data entry fields in conjunction with the 
option specified on the command line to: 


_ Add a row of information to the table. 


— Change a row of information in the table. 
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— Delete a row of information from the table. 
—  Add/change a row of information in the table. 
— Scan or search for a specified row of information in the table. 
° Invokes the subfunction routine (TELESRVC) to perform an action requested by the 
user (add, change, etc.). A special version of the panel (FPANEL1) is included 


for the FORTRAN implementation to illustrate yet another mechanism for passing 
parameters to the subfunction routine (TELESRVC). 


SUBFUNCTION ROUTINE TELESRVC 


This function routine receives control from the selection/data entry panel 

(CPANEL1, FPANEL1, or TPANEL1) via the ISPF SELECT service. The option requested by 
the user is passed to TELESRVC from the selection panel as a CLIST or EXEC2 
parameter, in the PARM field for COBOL and PL/1, and via the shared variable pool 
for FORTRAN. The subfunction routine (TELESRVC) does the following: 


° Gets the table variable values specified in the selection data entry menu from 
the shared variable pool. 


: Executes the appropriate ISPF service based on the service requested by the user 
on the command line. 


e For the table display (LIST) function, invokes ISPF table display panel TPANEL2. J 
e For the table query function, displays the results using panel TPANEL3. 


¢ For the report function, invokes the ISPF file tailoring function using the 
TELBOOK file skeleton. 


° Invokes the ISPF/PDF (PDF) browse and edit functions to display and edit the 
output of the report function. If PDF is not installed, this function will 
fail. 

DIALOG COMPONENTS APPLICABLE TO ALL IMPLEMENTATIONS 


Dialogs applicable to all of the command procedure and programming language 
implementations of the application are: 


° Table display panel definition TPANEL2 

° Table information panel definition TPANEL3 
° Message definitions TELBO1 and TELBO2 

° File tailoring skeleton TELBOOK 


Detailed listings of these components follow. ) 
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he 


TABLE DISPLAY PANEL TPANEL2 


Definition of table display panel TPANEL2 is shown below, followed by the panel as 
displayed. 


Panel Defintion 


)ATTR 
@ TYPE(OUTPUT) INTENS(LOW) 
) BODY 
Onn nnn nn nnn nnn nnn TELEPHONE DIRECTORY ---------------------------- 
%COMMAND INPUT ===> _ZCMD %SCROLL ===> AMT 


+S FIRST LAST PHONE LOCATION PHONE PHONE 
+ NAME NAME NUMBER TYPE COLOR 
+ 

) MODEL 

Z @2 QZ QZ QZ QZ @Z 
INIT 

. CURSOR=ZCMD 

&AMT='HALF ' 

&TSEL=' ' 

&ZCMD=' ' 

.ZVARS='(TSEL TFNAM TLNAM TNUM TLOC TTYPE TCOLOR)' 

END 


Panel Display 


jc ee el 


alelatatatatetatetatatatataatatetatatetetatetatate TELEPHONE DIRECTORY -----e---seren-nencenenseen- | 


COMMAND INPUT ===> _ SCROLL ===> HALF 
5 FIRST LAST PHONE LOCATION PHONE PHONE 
NAME NAME NUMBER TYPE COLOR 
LARRY MILNS 385-2222 STUDY DESK DIAL WHITE 
ARTHUR JONES 892-3232 DINING ROOM WALL DIAL BLUE 
KATHERINE GREEN 762-8012 LIVING ROOM PRINCESS WHITE 
LINDA MILLER 462-4441 KITCHEN WALL DIAL RED 
Fevevededede eee RE EET ROTTOM OF DATA ievtvedtdedvdeddedededededesevede eRe CE 


| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| RICHARD THOMPSON 332-4812 KITCHEN WALL TOUCH — BLACK | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
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INFORMATION DISPLAY PANEL TPANEL3 


J 


Definition of information display panel TPANEL3 is shown below, followed by the 
panel as displayed. This panel is used in the display of table information obtained 
through the use of the TBQUERY service. 


Panel Definition 


9 a ae al ni a a Telephone Book Information -------+----re-rcer ene n----- ; 
%COMMAND ===> ZCMD 

% 

% 

7 

% 4 
ve 

% Result from table query is 

% 

Te +Table row count is _QROWS % 

To 

7 +Key table variables QKEYS 

7 

ve +Non-key variables —QNAMES 

7 

ve 

yA . 
Zo J 
% 

) INIT 

) PROC 

) END 


Panel Display 


COMMAND ===> _ 


TABLE ROW COUNT IS 5 
KEY TABLE VARIABLES TLNAM 


NON-KEY VARIABLES TFNAM TLOC TNUM TCOLOR TTYPE 


| 
| 
| 
| 
| 
| 
| Result from table query is 
| 
| 
| 
| 
| 
| 
| 


ne 
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MESSAGE DEFINITIONS TELBO1 


TELBO10 ‘ENTRY ALREADY EXISTS' .ALARM=YES 
"CANNOT ADD AN EXISTING ENTRY' 


TELBO11 'ENTRY DOES NOT EXIST' .ALARM=YES 
'NO ACTION TAKEN FOR ATTEMPT TO DELETE NON-EXISTENT ENTRY’ 


TELBO12 ‘ENTRY DELETED' .ALARM=YES 
"THE ENTRY HAS BEEN DELETED FROM THE TABLE’ 


TELBO13 'ENTRY ADDED TO TABLE' .ALARM=YES 
'THE ENTRY SHOWN BELOW HAS BEEN ADDED TO THE TABLE’ 


TELBO14 'ENTRY MODIFIED' .ALARM=YES 
'THE ENTRY SHOWN BELOW HAS BEEN MODIFIED IN THE TABLE' 


TELBO15 'ENTRY CHANGED’ .ALARM=YES 
'THE ENTRY SHOWN BELOW HAS BEEN CHANGED IN THE TABLE’ 


TELBO16 'LAST LINE FOUND' .ALARM=YES 
"THE ENTRY SHOWN BELOW IS THE LAST LINE IN THE TABLE' 


TELBO17 ‘LAST LINE NOT FOUND' .ALARM=YES 
"THE TABLE IS EMPTY OR AN ERROR CONDITION EXISTS' 


TELBO18 'ENTRY DOES NOT EXIST' .ALARM=YES 
"LAST NAME NOT IN TABLE OR AN ERROR CONDITION EXISTS' 


TELB019 'TABLE SAVED’ .ALARM=YES 
"THE TABLE HAS BEEN SAVED ON DISK' 


MESSAGE DEFINITIONS TELBO2 


TELBO20 'TABLE REMOVED' .ALARM=YES 
"THE TABLE HAS BEEN REMOVED FROM THE DISK' 


TELBO21 ‘TABLE REFRESHED ' . ALARM=YES 
"THE TABLE HAS BEEN REFRESHED FROM THE DISK' 


TELBO22 'REPORT PREPARED' . ALARM=YES 
'THE TABLE HAS BEEN FORMATED INTO A REPORT' 


TELBO23 ‘REPORT DESTROYED' . ALARM=YES 
"THE FORMATTED TABLE REPORT HAS BEEN DELETED' 


TELBO24 
"THE TELEPHONE BOOK APPLICATION HAS BEEN TERMINATED' 


TELBO25 
t ' 
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FILE TAILORING SKELETON TELBOOK 
)TB 15 28 37 51 65 


TELEPHONE BOOK FILE TAILORING OUTPUT 


LAST NAME!FIRST NAME!TEL NUM! LOCATION! TYPE! COLOR 


)DOT TELBOOK 
&TLNAM !&TFNAM !&TNUM !&TLOC !&TTYPE !&TCOLOR 


)ENDDOT 


CLIST IMPLEMENTATION 

In addition to the components listed under "Dialog Components Applicable to All 
Implementations," the following components are required for the CLIST implementation 
of the dialog: 

e Combined selection and data entry panel CPANEL1 

7 Function TELEBOOK 


e Function TELESRVC 


CLIST - COMBINED SELECTION AND DATA ENTRY PANEL CPANEL1 


Definition of combined selection and data entry panel CPANEL1 is shown below, 
followed by the panel as displayed. 


Panel Definition 


)ATTR 
_ TYPE(INPUT) INTENS (LOW) JUST(LEFT) PAD(' ')  CAPS(ON) 
@ TYPE(INPUT) INTENS(HIGH) JUST(LEFT) PAD(' ') CAPS(ON) 
) BODY 
i ecensaumboascsesect TELEPHONE BOOK APPLICATION ----------------------------- 


+SELECT AN OPTION: %===>@ZCMD 
% 
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C 


% At+- Add new entry 
% Ct+- Change existing entry 
% Dt- Delete old entry 


% Gt- Get last 


entry 


% M+t- Add/Change entry 
% Z+- Blank screen entry 
% P+- Prepare repot 

% Bt- Browse report 

% Et- Edit report 

% Yt- Destroy report 


%F+- Refresh the table, from disk 
%K+- Remove the table, from disk 
%L+- List the table 

*#Qt+- Query the table 


%S+- 


Scan the table, NON UNIQUE 


%R+- Rescan the table, continue scan 


“T+- 
“~V+- 


+Current values / enter search values: 


% 

+ FIRST NAME ===>_TFNAM + 
+ LAST NAME ===> TLNAM + 
+ LOCATION ===> TLOC 

+ PHONE NUM ===> TNUM + 

+ PHONE COLOR===>_TCOLOR 

+ PHONE TYPE ===> TTYPE + 
) INIT 


-CURSOR = ZCMD 

&ZCMD = &0TELOPT 

IF(&ZERRMSG -= ' ') 
.MSG = &ZERRMSG 


&ZERRMSG = ' 


)PROC 


&ZSEL = TRANS( &ZCMD 


&OSEL = &ZSEL 


L, 'CMD(TELESRVC 
A, 'CMD(TELESRVC 
C,'CMD(TELESRVC 
D, 'CMD(TELESRVC 
G, 'CMD(TELESRVC 
M, 'CMD(TELESRVC 
Z, 'CMD(TELESRVC 
S, 'CMD(TELESRVC 
R, 'CMD(TELESRVC 
T, 'CMD(TELESRVC 
Q, 'CMD(TELESRVC 
P, 'CMD(TELESRVC 
B, 'CMD(TELESRVC 
E, 'CMD(TELESRVC 
Y, 'CMD(TELESRVC 
F, 'CMD(TELESRVC 
K, 'CMD(TELESRVC 
V, ‘CMD (TELESRVC 
t 


= t 
519s) 


LIST 
ADD 
CHANGE 
DELETE 
GETLAST 
MODIFY 
BLANK 
SCAN 
RESCAN 
SEARCH 
QUERY 
PREPREP 
BROWSE 
EDIT 
DESTROY 
REFRESH 
REMOVE 
SAVE 


Search on last name, unique key 
Save the table, on disk 


New Nee Nee Ne’ Sew Ne NY NY NY NY A Nw AY AY NY NY AY AY 
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IF(&ZCMD = S) 
&ZCMD = R 
&OTELOPT = &ZCMD 


IF(&ZCMD -= R) 
VER(&TNUM, PICT, 'NNN-NNNN’ ) 


)END 


Panel Display 


SELECT AN OPTION: ===> A 
A - Add new entry 
C - Change existing entry F - Refresh the table, from disk 
D - Delete old entry K - Remove the table, from disk 
G - Get last entry L - List the table 
M - Add/Change entry Q - Query the table 
Z - Blank screen entry S - Scan the table, NON UNIQUE 
P - Prepare repot R - Rescan the table, continue scan 
B - Browse report T - Search on last name, unique key 
E - Edit report V - Save the table, on disk 
Y - Destroy report 


Current values / enter search values: 


FIRST NAME ===> RICHARD 


LAST NAME ===> THOMPSON 
LOCATION ===> KITCHEN 
PHONE NUM ===> 332-4812 


PHONE COLOR===> BLACK 
PHONE TYPE ===> WALL TOUCH 


eee 


CLIST - FUNCTION TELEBOOK 


/* THE OBJECTIVE OF THE CODING TECHNIQUE OF THIS APPLICATION IS 
/* TO ILLUSTRATE ISPF SERVICES 


/* 

/* THE APPLICATION CONSISTS OF 

/* THIS MAIN PROGRAM - TELEBOOK 

/* 1 SUB PROGRAM - TELESRVC 

/* 3 PANELS - CPANEL1 TPANEL2 TPANEL3 
/* 15 MESSAGES - TELBO10 THRU TELBO24 

/* 1 FILE TAILORING SKELETON - TELBOOK 

/* 


/* THE APPLICATION PROVIDES THE FOLLOWING FUNCTIONS 
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/* FROM PANEL CPANEL1 TO ACCESS A TELEPHONE BOOK 


ADD NEW ENTRY 
CHANGE EXISTING ENTRY F REFRESH THE TABLE, FROM DISK 
DELETE OLD ENTRY K REMOVE THE TABLE, FROM DISK 
GET LAST ENTRY L LIST THE TABLE 
ADD/CHANGE ENTRY Q QUERY THE TABLE 
BLANK SCREEN ENTRY S SCAN THE TABLE, NON-UNIQUE 
PREPARE REPORT R RESCAN THE TABLE, CONTINUE SCAN 
BROWSE REPORT T SEARCH ON LAST NAME, UNIQUE KEY 
EDIT REPORT V SAVE THE TABLE, ON DISK 
DESTROY REPORT 

SET TERMMESSAGE 

SET PANEL1 

SET TABKEY 

SET TABVRS 

SET TELBOOK 

SET VPUTLIST 


c. 
or 
KMD UON EQOOO 


TELBO24 

CPANEL1 

TLNAM 

&STRC(TFNAM TLOC TNUM TCOLOR TTYPE) 
TELBOOK 

&STR(TFNAM TLNAM TLOC TNUM TCOLOR TTYPE) 


[REREERERERERRERER EERE REREREER ER EER BEET CREE ETRE REET wKeitkkielkkk ee 
/* CALL THE CONTROL SERVICE TO SET THE ERROR PROCESSING * 


[* MODE FOR THIS PROGRAM TO TERMINATE ONLY FOR ANY ERROR * 
/* THAT HAS A RETURN CODE OF 12 OR HIGHER ¥ 


[RRR EER REET ERE REET TE RITE ERE EERE TRE TERRE RR EEE NS 


ISPEXEC CONTROL ERRORS CANCEL 


[RRRRRERERREREREREERE ERR EEERE ERE ER EREE EERERE RE CER RE EEE EEEEEREE ERE AS 
/* CALL THE TBOPEN SERVICE TO * 
* OPEN THE TABLE, TELBOOK IN WRITE MODE * 


[BRERERRERERERERERERER REREREERERER EER ER ERER EERE BEER BEREREEERE BREE 


ISPEXEC TBOPEN &TELBOOK WRITE 


DRT ERIERERETREREEEERREERRERERREREERERRERERERREREEREREREERERRER RE 
/* CALL THE TBCREATE SERVICE TO * 
/* CREATE THE TABLE TELBOOK IF IT DOES NOT EXIST. THE * 
/* TABLE KEY IS THE LAST NAME VARIABLE SPECIFIED IN TABKEY * 
/* AND THE NON-KEY VARIABLES ARE SPECIFIED IN TABVRS * 


wlenlente nleatsntentsalentanta alentsntoatant« siege altoutes afantsntenlanlesnlenltcnta utentc ulententsateate ats wheats cleats afenlealsatsatsatenteafsatonteatas ste atealouto sleste wltealsateats se ate ales seve +e 
Si ei wii wi wie lei iw iwi wie i Wi wiwiviwiviwiwiyiwiwiwieiwiwiviwiwieiwiwiwieiwiwiwiwiwiwiwiwiviwiwiwieiwiwiwiviwi viel wieiwiwi wi wi) é 


IF &LASTCC = 8 THEN + 
ISPEXEC TBCREATE &TELBOOK KEYS (&TABKEY) NAMES (&TABVRS) 


Perea de tede rede Tee Tee Te Ne Ge Te Te OTE TE TE TE CTE TS TECTED TSEC TS TS TES ECTS TS TESTS TOTES ES TCT TCT ETE TERR RTE ERIE, 
i CALL THE TBSKIP SERVICE TO MOVE THE CURRENT ROW POINTER 7 
/* (CRP) OF THE TABLE TELBOOK FORWARD ONE ROW (DEFAULT). 7 
/* THE VARIABLES DEFINED FOR THE TABLE ARE SET TO THE VALUES * 
[= CONTAINED IN THE FIRST ROW OF THE TABLE. IF THE TABLE bs 
pe HAS JUST BEEN CREATED, THE VARIABLE VALUES REMAIN NULL. * 


whe ala alton, Seslestonteclsnle ale stents alenfacloatentaateclantentaats Pa eaPcs ea an nf tafice tlie male mts mle alco elce mlan enlace ele alan sleslestesleslontontoate cleulenlenlealealeelenlacteatsatentonts Noals cfoutenlestoals 
CE EN ES EL CC EN EC EN LEVEL EDEN EVEN COED FEV ED FLED EO ET ED EDEN SO ED VOTER OLESEN SLED ED TC EV FV ENED ED EVES ES EVES ESEC ED EVES FC EN OC EV EV OSE EC EN EN ENG 


ISPEXEC TBSKIP &TELBOOK 


Example 2. Telephone Book Application 41 


[BRR ERE EREREREEEREREERERERERRERSERRSER EER ERERREREREEEEERRERSEEEREERER 
‘is SET THE TABLE VARIABLES IN THE SHARED VARIABLE POOL TO THE * 
j= VALUES IN THE 1ST TABLE ROW. THESE VALUES WILL BE USED TO * 
/* INITIALIZE THOSE VARIABLES IN THE SELECT PANEL CPANEL1. * 


[BERRREREREREREREREEREREER EERE ERE ERE RERERAR BRET RERER NTR EER RECREATE BE 


ISPEXEC VPUT (&VPUTLIST) SHARED 


[BRR ER EEE EREREEREREREREREREREESERTESEBEEREEEEEEREEEEREEEREESERERE 
/* CALL THE SELECT SERVICE TO CONTINUE TO DISPLAY CPANEL1 = 
/* AND CONTROL THE INVOCATION OF SUBPROGRAM TELESRVC * 


[RRRREREERREREEEERERERERERE BE EERERERER EERE ERRERER ERE RE EREREERERERERER 


ISPEXEC SELECT PANEL(&PANEL1) 


en! ao ln ate alo ateafsnlsatsntsatenton' aleute en! Vs ato al 
telsteicdedetotelodidetdoledetdclocideieldiedsdcledteileiiohvkwehkchedekekickkvwokkd’edsiockkdlekvkicickk 


f* CALL THE TBCLOSE SERVICE TO CLOSE THE TABLE, TELBOOK * 


[BREREEREREREEEREER ERE REERERE TERE EBEREERSRER ERE REECE ER AEB ERREREERERER 


ISPEXEC TBCLOSE &TELBOOK 


atenleclanlsntrelseleclalealiatualealeatentetenlolentsctecteclentonlententontaclenlatontscterlsctontentontanlenlantscloatentontenton| sleslenlesionlonlontoclectonlantoute fo alan? onto nls nto afsnt 
EGC EL EL OVEN ELEC ET EVEL ECE EC TNE EC ELEC EC GC ACES EC ER TC AN TT ACEC EC ELEC ELEC ED EVEL EC EV ED ED ENACT ELEC ER EV EC ESET ERIC EL ES EL ER EVAL EVEN OC ECON ECGS 


/* CALL THE LOG SERVICE TO * 
i PUT THE MESSAGE TELBO24 ON THE ISPF LOG FILE * 


oe eae on" om fo! alam | i on’ on" etan'a e's oem! eo! fe tas! eae! ot te a Li te" eam! 2 Ge’ = olan Onl ad On! eo al, e's Onl Olam Oe en 
/ SesleslesecevesiosesicvevededonededodedcdedevededcskkeietekedeteckdeteteiokickeicRkickisddtededcKckKdkKekRReRRR:R 


ISPEXEC LOG MSG(&TERMMESSAGE ) 


steclontonte nlonlentanlsntentaalaatontentontonte fe nla ntenlantontoatontantantontantententontsntonlentectontsntenlsatontonta fo slentonlentotcatont aleelenlentenlentents atente fenlenlsctontontontcate 
i oe i ee ee ee ee ee ee ee ee ee eee ei el ee ee ee 


/* CALL THE SETMSG SERVICE TO ve 
/* PUT THE MESSAGE TELBO24 ON THE NEXT SCREEN DISPLAYED - 


a a atomle a! whom! lao RP Pe eee mle ate ato atom an oa a ontesntentonto o ae 2 mtn wf, ao ao alan a! 
/ tevedededededededesodevevovedodotedovodkededcdetototodededtetetetetedetetedtetotetektekehkekdctteitededelidtctkdtetkkedtcks 


ISPEXEC SETMSG MSG(&TERMMESSAGE ) 


CLIST - FUNCTION TELESRVC 


PROC 1 SERVN1 
/* THIS CLIST IS INVOKED FROM PANEL CPANEL1 DISPLAYED 
/* BY THE MAIN CLIST TELEBOOK USING THE SELECT SERVICE 
SET SERVN &SERVN1 
SET VARLIST = &STR(TNUM TFNAM TLNAM TLOC TTYPE TCOLOR) 
SET PANEL2 TPANEL2 
SET PANEL3 TPANEL3 
SET TELBOOK = TELBOOK 
SET TELOUT TELOUT 
SET TABKEY TLNAM 
SET TABVARS &STRC(TFNAM TLOC TNUM TCOLOR TTYPE) 
SET ZERRMSG 
SET ZMSGNAME 


ZERRMSG 
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C / Fetedede dete fe dede dete te Le Re Re De Tele Pe lele Fede PEER ESAAERERRERRRRERTAIS ARERR ERERER REE RA A A IT C 
/* FTOUTPUT SHOULD BE SET TO THE USER'S FILE TAILORING * 


/* OUTPUT PARTITIONED DATASET WITH THE MEMBER NAME SPECIFIED * 
/* AS THE VARIABLE '&TELOUT'. ie 


Mao on fias on! V0 an! ey f. atesaton! font, §. a! 
[RRR ERE EERERER ERE ER ER BREE RETR ERE EERER EERE EER EE EERE EER RRR IE 


SET FTOUTPUT = 'ISPFPROJ.FTOUTPUT(&TELOUT) ' 


[RRR RR RE EE EERE REEERRE EEE CREE ERER ER ERERERERER EER ER ERR ER ER ERE ERR RE 
/* CALL THE VGET SERVICE TO * 
/* COPY THE VALUES LISTED IN VARLIST FROM THE SHARED * 
/* VARIABLE POOL TO THIS CLIST'S SET OF FUNCTION 7 
/* VARIABLES. THE VALUES IN THE SHARED POOL ARE THOSE * 
/* RETURNED FROM THE SELECT PANEL CPANEL1. ¥ 


aa! alants a’ a al an ont anenl. atontsalsatsats 6 er han on Veen on bes on! en i) fsa! ¢. enPacs on! Po Pa Prey a ol 
[weurteien JevetedodetetedekdedcdoticddededieiidcekeetiiddcekiockiscKdecskdesckidckidcdlededtvdtveiektcdekiedetlede 


ISPEXEC VGET (&VARLIST) SHARED 


[RRRRREREREREREERRERE RE ERE ER ERERE BERR EE ERER ERE ERERER BEREERE EER REE 
/* &SERVN CONTAINS THE FUNCTION REQUESTED BY THE USER ON * 
/* THE SELECT PANEL CPANEL1. * 


alan, al Oe ee en ee ee ee ee ee eee een an on S20 alan en ee ee ee ed ed oe ee ee ee er Pn ee Oe en ed ee ee een een eles ales alee eles a! 
/* Sevedevededededodedededededetedete dete ete tee RRR RRR RRR RRR TRAE: 


IF &SERVN = LIST THEN DO 


( / VRE EREREEERERERERERERERERERERERERERERERREREEEEREEERREREERERERERE ERT ER 
/* CALL THE TBTOP SERVICE TO we 
/* SET THE CURRENT ROW POINTER (CRP) AHEAD OF THE FIRST 
/* ROW OF THE TABLE TELBOOK se 


en a mn! al a! ateataon el oe ee olen a . ent ao on! J a! 
[BERR RIE RRR REET ERIN I ER TTT ET TER IST TTT TS TS TE TS TS TST TE TET TE TE TCT TE TTC TE IEE TE 


ISPEXEC TBTOP &TELBOOK 


[ RRR RRR EERE EER EE RE RRR EE TERETE TERE ELE UNE EER TEE TLE EERE RE EERE EEE 
e /* CALL THE TBDISPL SERVICE TO 7 
/* DISPLAY THE TABLE TELBOOK USING THE PANEL TPANEL2 * 


[RREREEREREEREREREERE BE EREREEEEERERERE EEE ER ERE EEE RE TERRE ERE RERERERE 


ISPEXEC TBDISPL &TELBOOK PANEL(&PANEL2) 
END 
ELSE IF &SERVN = ADD THEN DO 


[BRRRRERREEREREREREEER EER ERE RE RREREEREREEREREEREE ER REE RE REREREREREEER 
/* CALL THE TBADD SERVICE TO TRY TO * 
is ADD A NEW ROW OF VARIABLES TO THE TABLE TELBOOK * 


[BRRERER ERE EERE EERE E BEER EEE EEE EERE ERIE RE RE RE REE TR ERE EE REE RE 


ISPEXEC TBADD &TELBOOK 
IF LASTCC = O THEN SET ZERRMSG 
ELSE SET ZERRMSG 


TELBO13 
TELBO10 


END 
Cc ELSE IF &SERVN = CHANGE THEN DO 
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i 
/* CALL THE TBPUT SERVICE TO TRY TO * 
/* UPDATE A ROW OF VARIABLES IN THE TABLE TELBOOK % 


Pe nln mal Ts ml. Veo mates ml ee ee fae wl as ml. §, J co en fan an? an mn ten ml an mm co eles mle mle ml, 4 a ee 
[RRERERERREREEE ER REE RERRERER ERE EERE RETR EERE BERN SER RRR E BERETA R TE 


ISPEXEC TBPUT &TELBOOK 
IF LASTCC = 0 THEN SET ZERRMSG = TELBO15 
ELSE SET ZERRMSG = TELBO18 


END 


ELSE IF &SERVN = DELETE THEN DO 


[ BRURRER EERE EER EERE EERE EEEEE ERE EERE EER ERR RETR TE TRE REE ERER ER TR RERER 
pe CALL THE TBDELETE SERVICE TO TRY TO * 
/* DELETE A ROW OF VARIABLES IN THE TABLE TELBOOK * 


af tn at tm" ot on’ eee af te a Oe eo rod a Ge = on at te! on ‘af tn‘ at Be’ ro) Py ' es onl ee not et a's o's a on! eet nat tn’ te ae af tn" at Ge On 'ae Ge’ at ‘? af Ge on 
/ SeveveicdesedodtedekietkkikeeeickikeekkkeeRtekkekieReReRReea aa RR RRR RRR: 


ISPEXEC TBDELETE &TELBOOK 
IF LASTCC = 8 THEN SET ZERRMSG = TELBO11 
ELSE SET ZERRMSG = TELBO12 
ISPEXEC TBSKIP &TELBOOK NUMBER(0Q) 
IF &LASTCC = 8 THEN ISPEXEC TBSKIP &TELBOOK NUMBER(1) 
END 
ELSE IF &SERVN = GETLAST THEN DO 


*velssdsdsikkdeickkiks 


/* CALL THE TBBOTTOM SERVICE TO * 
/* SET THE CURRENT ROW POINTER (CRP) TO THE LAST ROW OF * 
/* THE TABLE TELBOOK AND TO RETRIEVE THAT ROW ve 
/ 


tiddectkikkkckeicikdvdekvdedelcledtcdieleckkilivkevkkeekRe ikke kee Re ekeek 
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7 
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(J 
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af, eA . af, m a Pr Pes oe! afoul, Pr a 
/ sevedevedodtededesvedevededevevetedededededelekeicledeckedietededtotetedtedededtedtedse 


ISPEXEC TBBOTTOM &TELBOOK 
IF &LASTCC = 0 THEN SET ZERRMSG = TELBO16 
ELSE SET ZERRMSG = TELBO17 


END 
ELSE IF &SERVN = MODIFY THEN DO 


[BREE REE RERR EE RER ER EERERER EERE REREEE ER ETE ERE TERE RER EERE BERR REE R TE 
/* CALL THE TBMOD SERVICE TO * 
/* UPDATE OR ADD A ROW OF VARIABLES TO THE TABLE TELBOOK * 


[BEEBE RERREEEERERE BEER ER ERR ERE EER RARER EERE ET EEEEERREREREERRRER 


ISPEXEC TBMOD &TELBOOK 
IF LASTCC = OQ THEN SET ZERRMSG 
ELSE SET ZERRMSG 


TELBO14 
TELBO13 


END 
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[RRRRRERRRERERERREER EEEREEE REREEERE BEE ER EREER EE ERERESERERE ER ERE REREEE 
/* SET THE CURRENT VALUES OF THE TABLE VARIABLES TO NULL. 7% 
/* WHEN CPANEL] IS REDISPLAYED, THE TABLE VARIABLES WILL 7% 
/* CONTAIN NULL VALUES ON THE SCREEN. * 


[RRERER RR RE REE REEREER REEEREERERER REE EERERERERERECE RR EEERER REECE ERR EEE 


ELSE IF &SERVN 
ELSE IF &SERVN 


BLANK THEN ISPEXEC TBVCLEAR &TELBOOK 
SEARCH THEN DO 


[RRRERERER EERE EREREEE EREREREREEEER ER EREREREEREERERE REERREERERER ERE 
/* CALL THE TBEXIST SERVICE TO ¥ 
/* TEST FOR THE EXISTENCE OF A ROW IN THE TABLE WITH THE ¥ 
/* SPECIFIED LAST NAME (KEY VARIABLE). ¥ 


[ BRERRERREREREEREREERE EERE EERE ERERER TRE BERE TRE REERR ER ERERR TEER ESARS 


ISPEXEC TBEXIST &TELBOOK 


[RRRRRERRREREREEEEREREREREERERRERER EREERER ERR ERCEE ER ER EER AR RR EBERT 
/* IF THE ROW WAS FOUND, te 
/* CALL THE TBGET SERVICE TO 
/* FETCH THE VALUES FOR THE ROW FROM THE TABLE. OTHERWISE, 7 
/* THE VALUES FOR THE TABLE VARIABLES WILL BE UNCHANGED. * 


#. a! pn 
[BERET E EERE EERE REE REESE EERE REE R ERECT RRR E EERE TER ERR RC RR CREE 


IF &LASTCC = 0 THEN ISPEXEC TBGET &TELBOOK 
END 
ELSE IF &SERVN = QUERY THEN DO 


[ RERRREREREREERERE EREEEERERREREEREEEEREEEERE BR EERERRTEREERERERERE EERE 
/* CALL THE TBQUERY SERVICE TO ¥ 
/* OBTAIN FROM THE TABLE TELBOOK THE KEY VARIABLE NAME(S), * 


/* THE NON-KEY VARIABLE NAMES, AND THE NUMBER OF ROWS * 
[RRRERERR ER RRRERERRE RE RE RERERERERREERERSEERER ER AREER EERREREERERERRRE RE 


ISPEXEC TBQUERY &TELBOOK KEYS(QKEYS) NAMES (QNAMES) ROWNUM(QROWS ) 


[ BRRERERRREREERERERE EER EEE EER EREREEEEERER ER ER EET ER ERERERERERERERER ES 


/* CALL THE DISPLAY SERVICE TO DISPLAY THE PANEL TPANEL3 * 


[ BRREREERERREREREEREREREREERUEREREREERREEEERERREERERR TEREERERERERERRERE 


ISPEXEC DISPLAY PANEL(&PANEL3) 
END 
ELSE IF &SERVN = PREPREP THEN DO 


[ BREREREERERERER ER EER RE REE RERR EERE EERE RTE REE ER EE REE EEEEE RE EREREERER 
/* CALL THE FTOPEN SERVICE TO BEGIN FILE TAILORING * 


9 os a Pao n| \} Pay on ew af, Pos an! al! 
[RRERRREIER EER EERE EERE RECREATE REE EER ER RVR EEE ER EERE CEERI TER ECE 


ISPEXEC FTOPEN 
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[ BERR ER ERE NER ERE RE EEE ERE EE REE ERE EERE EERE TR EEE EEERE EEE EEE EERE EER 
/* CALL THE FTINCL SERVICE TO * 
/* DO FILE TAILORING USING THE FILE TAILORING SKELETON TELBOOK * 


[ERR RR EERE REE EERIE EERE ENTER REIT EEN EERE REE ERE RE TREE EERE EE 


ISPEXEC FTINCL &TELBOOK 


[ BREREREERIESERREREERERERERRER EERE REREEREEEE ERE ERRER EEERE EREERRERERE 
/* CALL THE FTCLOSE SERVICE TO TERMINATE FILE TAILORING * 


/* AND STORE THE OUTPUT AS MEMBER TELOUT * 
[BRREREREEREEEREREERERERERRREREREERRE ER REEERERE EE RERERERERERERERERER 


ISPEXEC FTCLOSE NAME(&TELOUT) 
SET ZERRMSG = TELBO22 
END 

ELSE IF &SERVN = BROWSE THEN DO 


[ BRRRRRERER EE ERREEREEEERERERERE EEE RRR ERE ERR RE RER EBERT R EE ASREEERRREREEE 
/* CALL THE BROWSE SERVICE TO BROWSE TELOUT IN * 
/* FTOUTPUT. THE ISPF/PROGRAM DEVELOPMENT FACILITY ¥ 
/* PROGRAM PRODUCT MUST BE INSTALLED TO USE THIS FUNCTION. * 


[ BRRREERERE RE REEREER ERE RREEERERER ATR AECREECR ER EE RRERERER RR EEREEE CE RRRERE 


ISPEXEC BROWSE DATASET(&FTOUTPUT) 
END 
ELSE IF &SERVN = EDIT THEN DO 


[BERBER EREREREREREBEEEERERERE RB RERE RE BERERREERER ER ERE RRERERREERERREREREREE 
/* CALL THE EDIT SERVICE TO EDIT TELOUT IN THE * 
/* FTOUTPUT. THE ISPF/PROGRAM DEVELOPMENT FACILITY * 
/* PROGRAM PRODUCT MUST BE INSTALLED TO USE THIS FUNCTION. ve 


[BEBE RERECERERERER EEE BEEBE EER TRE TRE ENS TEE EEE ER ER TER BREERERE ERE R 


ISPEXEC EDIT DATASET (&FTOUTPUT) 
END 
ELSE IF &SERVN = DESTROY THEN DO 


[BRERERRERRERERERE BER ER ER EERE ER ERE EERE EERE ERR EERE EERE RE REE EERE EEREER 
/* CALL THE FTERASE SERVICE TO 7 
/* DELETE THE FILE TAILORING OUTPUT TELOUT ¥ 


ma! wale les ol £, } t, £, af } f, f, 
[ BRRRRRER RR ERNERRR EEE EERE ER EER EER EE ER ER ER ERE ERE RNR RRR R BREE RARE E TARR 


ISPEXEC FTERASE &TELOUT 
SET ZERRMSG = TELBO23 
END 
ELSE IF &SERVN = REFRESH THEN DO 


[BRR ER EE EERE EEE ER EERE EERE EE ERE EER EER EES ERR ER EER EERE ER EERE EER EER RE 
/* CALL THE TBEND SERVICE TO * 
/* CLOSE THE TABLE TELBOOK WITHOUT SAVING IT ON DISK * 


ale ale atonte a! - as Tos ates las leo mter mtacmtes las tos Pca wlan wn tao wn! P Ss leo on ate a a oe §, 
/ tedevededetedededededededdesRTkReTKRRkic KC —M——  —< <I RMRK_NV«—<«}—MPDk Gg gg} GR KR RR RRR  RRaA § , £Fik teks 


ISPEXEC TBEND &TELBOOK 
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ISPEXEC TBOPEN &TELBOOK 
ISPEXEC TBSKIP &TELBOOK 
SET ZERRMSG = TELBO21 
END 

ELSE IF &SERVN = REMOVE THEN DO 
ISPEXEC TBCLOSE &TELBOOK 


al al alo ale ale ale altontonton' Ln os! Py atantes a! mtn! ts ntont, on ao ma! ate ate nlento ntl al al ate mle of, 
[REREERRRERREERERERERERERRERERE RE EEE RRR ARATE ERE BREE BREEN IRATE ATT 


/* CALL THE TBERASE SERVICE TO * 
/* DELETE THE TABLE TELBOOK FROM THE TABLE OUTPUT LIBRARY * 


[RRERRERERERRE RE ERER EERE REET EERE ERE TEER ER ER ERE EE BEEREREREERE EEE RRR 


ISPEXEC TBERASE &TELBOOK 
ISPEXEC TBCREATE &TELBOOK KEYS(&TABKEY) NAMES (&TABVARS ) 
SET ZERRMSG = TELBO20 
END 
ELSE IF &SERVN = SAVE THEN DO 


[RRRRRRRRRRREREER ERE EEE RE REET AERTTTR TEETER NARI 
/* CALL THE TBSAVE SERVICE TO WRITE THE TABLE TELBOOK * 
/* FROM VIRTUAL STORAGE TO THE TABLE OUTPUT LIBRARY a 


lestesly festecte fe ale afeatantoals nlestonte maleate ateateatsatants lanteateatentsntaatsatealantsaltanisatactontants ntentsntantaatonte al shecle slecteclonlentectentactonlsate ateclaateatanisntantsata i 
OL ew ee ee ee ee ee eee ee el ee ee el ieee lee 


ISPEXEC TBSAVE &TELBOOK 
SET ZERRMSG = TELBO1S 
END 
ELSE IF &SERVN = SCAN THEN DO 
[RRR RRR RRR RE ER ERE BERR ERE EER ERE ER TEER REE E EEE ERE RR RE RATT 
/* CALL THE TBSARG SERVICE TO ESTABLISH A SEARCH id 
[* ARGUMENT FOR SCANNING THE TABLE TELBOOK * 


[ HERI RTT LTE ER IEE RE RTE TEE TELE TCT TR REET TC TCT TTT AT 


ISPEXEC TBSARG &TELBOOK 


[ BRRRRERRRREREREREEREREEER EE EEE RE REEEREREE ERE EBERT EREREREE EER EERER ERE 
/* CALL THE TBSCAN SERVICE TO SEARCH THE TABLE TELBOOK * 
/* FOR A ROW WITH VALUES THAT MATCH THE ARGUMENT LIST * 


[RRR ER ERE REE EERE EEE ETN SEAT TR NTT NEE TNE TTT NEA NTN ETAT AE 


ISPEXEC TBSCAN &TELBOOK 
END 

ELSE IF &SERVN = RESCAN THEN DO 
ISPEXEC TBSCAN &TELBOOK 


[BRAKE RE RE ERERRERERRRER EER EREREEEERER ER REREEEEEREREERE REESE REREER 
/* CALL THE TBVCLEAR SERVICE TO CLEAR FROM THE SCREEN 7 
/* THE VARIABLES DISPLAYED FROM THE TABLE TELBOOK IF ¥ 
/* ANOTHER ROW WITH THE SAME SEARCH VALUES IS NOT FOUND. * 


[RRR ER ERIE ERE ERE RE EEE ERE EERE EER ERE EERE EEE RRR ERE EERE EERE REER EBERT 


IF &LASTCC = 8 THEN ISPEXEC TBVCLEAR &TELBOOK 
END 
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[BRRRRERERRERE ER EEERERER EERE REERE RE EREERR EREEREREREREEEREREREREEERERER 


/* CALL THE VPUT SERVICE TO * 
/* COPY THE VALUES LISTED IN VARLIST FROM THIS PROGRAMS SET * 
/* OF FUNCTION VARIABLES TO THE SHARED VARIABLE POOL * 
[ BERR ER ERERRER EER ERE TRAN ARATE RRRERERREEEREERERRER RE ERERERREERR 


ISPEXEC VPUT (&VARLIST) SHARED 
ISPEXEC VPUT (&ZMSGNAME) SHARED 


EXEC2 IMPLEMENTATION 


The components listed under "Dialog Components Applicable to All Implementations," 


and the following are required for the EXEC2 implementation of the dialog: 

° Combined selection and data entry panel CPANEL1 

: Function TELEBOOK 

e Function TELESRVC 

EXEC2 - COMBINED SELECTION AND DATA ENTRY PANEL CPANEL1 
Definition of combined selection and data entry panel CPANEL1 is shown below, 


followed by the panel as displayed. 


Panel Definition 


)ATTR 
_ TYPE(INPUT) INTENS (LOW) JUST(LEFT) PAD(' ') CAPS(ON) 
@ TYPE(INPUT) INTENS(HIGH) JUST(LEFT) PAD(' ') CAPS(ON) 
) BODY 
Yan en nnnnenne-ee-e--- TELEPHONE BOOK APPLICATION ------------------------2--=- 


+SELECT AN OPTION: %===>@ZCMD 
% 
% At- Add new entry 


% Ct- Change existing entry *%F+- Refresh the table, from disk 

% Dt- Delete old entry *wKt+=- Remove the table, from disk 

% Gt- Get last entry %L+- List the table 

% M+- Add/Change entry %Q+- Query the table 

% w2£+t- Blank screen entry *%5+- Scan the table, NON UNIQUE 

% P+- Prepare repot *R+- Rescan the table, continue scan 
% B+- Browse report %I+- Search on last name, unique key 
% Et- Edit report %V+- Save the table, on disk 


% Y+- Destroy report 

% 

+Current values / enter search values: 
% 

+ FIRST NAME ===>_TFNAM + 
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J 


+ LAST NAME ===> _TLNAM 
===> TLOC 


+ LOCATION 


+ PHONE NUM ===> TNUM + 
+ PHONE COLOR===> TCOLOR 


+ PHONE TYPE ===> TTYPE 


) INIT 


-~CURSOR = ZCMD 


&ZCMD = &OTELOPT 
IF(&ZERRMSG -= ' ') 
-MSG = &ZERRMSG 


&ZERRMSG = ' 


) PROC 


&ZSEL = TRANS( &ZCMD 


&OSEL = &ZSEL 
IF(&ZCMD = S$) 
&ZCMD = R 


L, 'CMD(TELESRVC 
A, 'CMD(TELESRVC 
C, 'CMD(TELESRVC 
D, 'CMD(TELESRVC 
G, 'CMD(TELESRVC 
M, 'CMD(TELESRVC 
Z,'CMD(TELESRVC 
S,'CMD(TELESRVC 
R, 'CMD(TELESRVC 
T, 'CMD(TELESRVC 
Q, 'CMD(TELESRVC 
P, 'CMD(TELESRVC 
B, 'CMD(TELESRVC 
E, 'CMD(TELESRVC 
Y, 'CMD(TELESRVC 
F, 'CMD(TELESRVC 
K, 'CMD(TELESRVC 
V, CMD (TELESRVC 


aa 
ae) 


&OTELOPT = &ZCMD 


IF(&ZCMD -= R) 


VER (&TNUM , PICT, 'NNN-NNNN' ) 


) END 


LIST 
ADD 
CHANGE 
DELETE 
GETLAST 
MODIFY 
BLANK 
SCAN 
RESCAN 
SEARCH 
QUERY 
PRE PREP 
BROWSE 
EDIT 
DESTROY 
REFRESH 
REMOVE 
SAVE 


Nee Ne NY Ne Oe Ne Oe Oe YW Se YY OY OY CY LY LY CY LY 
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Panel Display 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


~---------------- TELEPHONE BOOK APPLICATION ---------------------------- 


SELECT AN OPTION: ===> A_ 
A - Add new entry 
C - Change existing entry F - Refresh the table, from disk 
D - Delete old entry K - Remove the table, from disk 
G - Get last entry L - List the table 
M - Add/Change entry Q - Query the table 
Z - Blank screen entry S - Scan the table, NON UNIQUE 
P - Prepare repot R - Rescan the table, continue scan 
B - Browse report T - Search on last name, unique key 
E - Edit report V - Save the table, on disk 
Y - Destroy report 
Current values / enter search values: 
FIRST NAME ===> RICHARD 
LAST NAME ===> THOMPSON 
LOCATION ===> KITCHEN 
PHONE NUM ===> 332-4812 
PHONE COLOR===> BLACK 


PH 


ONE TYPE ===> WALL TOUCH 


ee 


a es 


EXEC2 - FUNCTION TELEBOOK 


&TRACE 

PePeWe ee PERN NTA EER ERE TREEETTASSS AE RESAREREREREREERESERBAAARSAEERERERERRRCO} ER 
w * 
* THE OBJECTIVE OF THE CODING TECHNIQUE OF THIS APPLICATION IS * 
* TO ILLUSTRATE ISPF SERVICES * 
¥ * 
* THE APPLICATION CONSISTS OF * 
* THIS MAIN PROGRAM - TELEBOOK * 
* 1 SUB PROGRAM - TELESRVC * 
* 3 PANELS - CPANEL1 TPANEL2 TPANEL3 ¥ 
* 15 MESSAGES - TELBO10 THRU TELBO24 * 
* 1 FILE TAILORING SKELETON - TELBOOK * 
w * 
* | THE APPLICATION PROVIDES THE FOLLOWING FUNCTIONS * 
* FROM PANEL CPANEL1 TO ACCESS A TELEPHONE BOOK 
w * 
* A ADD NEW ENTRY * 
* © CHANGE EXISTING ENTRY F REFRESH THE TABLE, FROM DISK 
* 1D DELETE OLD ENTRY K REMOVE THE TABLE, FROM DISK * 
* G GET LAST ENTRY L LIST THE TABLE zs 
* M  ADD/CHANGE ENTRY Q QUERY THE TABLE 
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BLANK SCREEN ENTRY 
PREPARE REPORT 


SCAN THE TABLE, NON UNIQUE * 
RESCAN THE TABLE, CONTINUE SCAN 
BROWSE REPORT SEARCH ON LAST NAME, UNIQUE KEY 
EDIT REPORT SAVE THE TABLE, ON DISK : 
DESTROY REPORT * 


‘, , fae ates olen! Nao ater al areatar mlac ular mlter ater aloe! 9 co ates las alco mle elas las ale ala al aonla maton, Le Pe PS PR PY | S20 alas al, *. fas ate ales ate ats af, 
Wiedede dee EREREERERE EEREREERERRERERREEEREREEEEEREEREREEBRRERERBREREEEE 


*% 
<mhouwuN 
<aHaM 

+ 


&PRESUME &SUBCOMMAND ISPEXEC2 

* &TERMSG IS THE TERMINATION MESSAGE 

&TERMSG = &CONCAT OF MSG ( TELBO24 ) 

&TABKEY = &CONCAT OF ( TLNAM ) 

&TABVAR1 = &CONCAT OF ( TFNAM &BLANK TLOC &BLANK TNUM 
&TABVAR2 = &CONCAT OF &BLANK TCOLOR &BLANK TTYPE ) 
&TABVARS = &CONCAT OF &TABVAR1 &TABVAR2 

&TELBOOK = TELBOOK 

&VPUTLI1 = &CONCAT OF ( TFNAM &BLANK TLNAM &BLANK TLOC 
&VPUTLI2 = &CONCAT OF &BLANK TNUM &BLANK TCOLOR &BLANK TTYPE ) 
&VPUTLIS = &CONCAT OF &VPUTLI1 &VPUTLI2 


Vette dese de sede dese sete Ke FeTTo RTE EEREREEEREREEREREREREERERERERERERERE 
* CALL THE CONTROL SERVICE TO * 
* SET THE ERROR PROCESSING MODE FOR THIS PROGRAM TO # 
* TERMINATE ONLY FOR ANY ERROR THAT HAS A RETURN CODE OF * 
* 12 OR HIGHER cg 


ates fesloats Feulectoniccicaic Ses alo ntes mle ato ate mls atontasatwalsntouts alsatentontsatscatsatsatsataateatsatsatsatsatantsatsatsatantontsalsatesalaalantsatoats atoataatsalsatsalsatsntsatoute fenton! Pe 
FOES AVEC PCE GEC GOES GOES EL EL ET ES CC EN ER GL ED CES TL ALES DL ED ELEC GL EL EVES EDEL EDT EC ELEC ENGL ED CECI GR EC IT ED OT ED ED ET OT ITED OV EC OT ON GE Ge ON GS 


ISPEXEC2 CONTROL ERRORS CANCEL 


TMT ETC TITER TEE BRIBE TICES TC IT TS TERETE TET ETTR TTR BREET E TERETE 
sa CALL THE TBOPEN SERVICE TO ss 
s OPEN THE TABLE, TELBOOK IN WRITE MODE si 


al a! le an! ao oa! a! al ale alee! an! whe alc ale ate alton! = ale ales atealsnlonlsalsatsalasntentautes ales a!o mia a! alten! ao a am on! oats 
* se tevedede ede deve ri iy soe ry * oh rey se rt < ese ah ve iy J ris rs sk ris An < ray ih ens se te . ws rid 's ns ve rid ri a . ri _ nb ris ds se we sieve * < wc 3s vc se vs Ki 


ISPEXEC2 TBOPEN &TELBOOK WRITE 
&IF &RC NE 8 &GOTO -NONOTTO 


sedesedetkdekekkkdccdeckkdcdekvekdetokidokitkichtiihekeeiickictcwkicekeiekwkckkk kick 
* CALL THE TBCREATE SERVICE TO CREATE TELBOOK IF IT DID NOT * 


* EXIST. THE TABLE KEY VARIABLE IS SPECIFIED IN TABKEY * 
% AND THE NON-KEY VARIABLES ARE SPECIFIED IN TABVARS. * 


Yas eS PS) { ate el Pres en heoa on as lass enter saan en aloalaatesatonte el alow ale ao eal ao mal a eles on 
vitkkkiekidelcKkveek Re Rett tebikdekdedekisckekdedclodskkvsekdkekdcdeltelekicsehkitelikhesk 


ISPEXEC2 TBCREATE &TELBOOK KEYS &TABKEY NAMES &TABVARS 
-NONOTTO 


Sevdedccededkvecdekdiekkekecbictctk ew kickickkeeedeotddacedvwkicisedcedvcekwnvkeecldecdcdeok 
* CALL THE TBSKIP SERVICE TO MOVE THE CURRENT ROW POINTER * 


= (CRP) OF THE TABLE TO THE 1ST ROW. THE TABLE VARIABLES * 
% ARE SET TOTHE VALUES CONTAINED IN THE 1ST ROW. 7 


tetekiocvikekckkkeekekikekecddckeedck ek dccdcckwR ddl ke Ra ER: 


ISPEXEC2 TBSKIP &TELBOOK 
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WEBER IER ERE ERE ER RES EE EERIE RERR ERE UEBCRRRRIRREREREREREREERREEREE 
oy SET THE TABLE VARIABLES IN THE SHARED VARIABLE POOL TO THE * 
VALUES CONTAINED IN THE 1ST ROW OF THE TABLE. THESE VALUES * 
= WILL BE USED TO INITIALIZE THE VALUES DISPLAYED IN CPANEL1. * 


sovedovedovededetiedetetodstciskkkekenkiekdcictkiccdvkedeediedicscssedldkedctccleddvckwdeekekicteick 


ISPEXEC2 VPUT &VPUTLIS SHARED 


VNTR RTE ERIE BE NER INERERTRNATREBCERURURUR NEU RRRRERBRRARERERREREREERREE 
i CALL THE SELECT SERVICE TO % 
Li CONTINUE TO DISPLAY PANEL CPANEL] AND CONTROL THE * 
* INVOCATION OF THE SUB PROGRAM TELESRVC * 


detevodedededededededededededtetededetedesedetekickkdekicktedetctedetedstetededekteiededetedetetededetekekictetetetetededteted: 


ISPEXEC2 SELECT PANEL( CPANEL1 ) 


itetistkkdkededeckkdvdcKwictcivkikkReKkeekeeeceeeR ee esvceldEekheRickictedededelolededlede 


cag CALL THE TBCLOSE SERVICE TO CLOSE THE TABLE, TELBOOK * 


detededodsdedetodededetedodetedetekedeleRe RRR RARER RTE RRRR RR ERR RARER RRR 


ISPEXEC2 TBCLOSE &TELBOOK 


DPT RTE TTT TEE RTE RR TOLER TES ERE DERE ADE EESEREDESESESD REDDER RAR AAS CST 
* CALL THE LOG SERVICE TO * 
* PUT THE MESSAGE TELBO24 ON THE ISPF LOG FILE * 


KolslokddededveedekkeedishicndkhkhkkTRR RRR RR RR «<A RR «aR RR RRR: 


ISPEXEC2 LOG &TERMSG 


Fededetedededete Tetede Fedele de Fe Fete Dee Fede Tee TTT PEER RE EEREREREERERETERAEREERERTREREERERRE 
7 CALL THE SETMSG SERVICE TO * 
* PUT THE MESSAGE TELBO24 ON THE NEXT SCREEN DISPLAYED * 


SevvesvdesevededoktoitetciclolkkivcliehteenietkekickwicckchitenkiontkckKeRkkeK Kei 


ISPEXEC2 SETMSG &TERMSG 
&EXIT 


EXEC2 - FUNCTION TELESRVC 


&TRACE 
Fedededetededede Te FeteTede RRR RRETRERERRERTRRNERRERERERTEETREREREERTRERERRERAREEERRERERERREERRER RE 
* THIS SUBPROGRAM IS INVOKED FROM PANEL TPANEL1 DISPLAYED * 


¥ BY THE MAIN PROGRAM TELEBOOK USING THE SELECT SERVICE * 
sevlededoslotededededovodtevededede sede de dete seco See eR RT REITER RITTER REET RERT ERATE RTERRRE I CT 


&PRESUME &SUBCOMMAND ISPEXEC 

&TPANEL2 = &CONCAT OF PANEL ( TPANEL2 ) 
&TPANEL3 = &CONCAT OF PANEL ( TPANEL3 ) 
&TELBOOK = TELBOOK 

&TELOUT = TELOUT 
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kiesteckidvktuddktedek eee kkKKkeeekEck kee a aR, a RM« STR «aS a: 
* &FTOMAC SHOULD BE SET TO THE FILEID OF THE USER'S * 


* FILE TAILORING OUTPUT MACLIB. * 
setlckdcdtelckdekekkickkkvekkekekkiekkKecKee eek Kick cece ce: 


&FTOMAC 
&TABKEY 
&TABVAR1 


&CONCAT OF ( &BLANK FTOUTPUT &BLANK MACLIB &BLANK ) 
&CONCAT OF ( TLNAM ) 

&CONCAT OF ( TFNAM &BLANK TLOC &BLANK TNUM 
&TABVAR2 = &CONCAT OF &BLANK TCOLOR &BLANK TTYPE ) 

&TABVARS = &CONCAT OF &TABVAR1 &TABVAR2 

&ZERRMSG = &BLANK 

&ZMSGNA = &CONCAT OF ( ZERRMSG ) 

&QROWSD = 0 

&QROWSDZ = 0 

&L8 = 8 


tedevededededodedededede delete dee ETRE RRR RR KR RR CR 
* SET &SERVN TO THE FUNCTION REQUESTED BY THE ¥ 
* USER ON PANEL CPANEL1. “ 


es PF %, Vas 15 tam a antes eaten on eo we! Prod Py a 
SevesesdevevevovevodcvededtovededelosesededededevekickkdektiesckeskeeickeideckticiscscKkkckickssdtedek 


&SERVN = &1 
&VARLIS1 
&VARLIS2 
&VARLIST 


&CONCAT OF ( TFNAM &BLANK TLNAM &BLANK TLOC &BLANK TNUM 
&CONCAT OF &BLANK TCOLOR &BLANK TTYPE ) 
&CONCAT OF &VARLIS1 &VARLIS2 


VIR TTT CT TERRIER TREE RETR EEETERTEREERREESTREERERERETEREEREREEEREERREERER 
* CALL THE VGET SERVICE TO * 
* COPY THE VALUES LISTED IN VARLIST FROM THE SHARED ¥ 
* VARIABLE POOL TO THIS EXEC'S SET OF FUNCTION VARIABLES. * 
% THE VALUES IN THE SHARED POOL ARE THOSE RETURNED FROM ¥ 
¥ THE SELECT PANEL CPANEL1. * 


V f, |, Nc ales alas mts ntontas wtontocnte al, Pr { Sule wloulsntontont! fasates ul, {a wloulsnteat, V f. 
Fee ete TET eT TE TERE TENE ETE NITE TORE TENTS TELE ETS TOTS ETS TCDS TE TEE TE TS TC TCE TS TETE TT TERETE REE RIE REECE 


ISPEXEC VGET &VARLIST SHARED 


alee a! ates alsa’ alsalsates alas ate a! al al Pr Ps atee’ an! fo ont ao wal an! as mateo onto a ~ al, al al 
soledevedesesodedededodedkededssededcdodokddekedolkkkkvkieelenkkkeck eed LR «A 


¥ CHOOSE APPROPRIATE SERVICE ROUTINE * 


alsalse 1, aula ales Fas alo la a! Pr ao tee wl, Fes lao lan an Yeo tae anes on! a ale a an! 
SevivelevetedockdoedckitisvddeeeckRk Kicked eek Rd ccdclcekk 


&IF 
&IF 
&IF 
&IF 
&IF 
&IF 
&IF 
&IF 
& IF 
&IF 
&IF 
&IF 
&IF 


&SERVN 
&SERVN 
&SERVN 
&SERVN 
&SERVN 
&SERVN 
&SERVN 
&SERVN 
&SERVN 
&SERVN 
&SERVN 
&SERVN 
&SERVN 


LIST 
ADD 
CHANGE 
DELETE 


GETLAST 


MODIFY 
BLANK 
SCAN 
RESCAN 
SEARCH 
QUERY 


PREPREP 


BROWSE 


&GOTO 
&GOTO 
&GOTO 
&GOTO 
&GOTO 
&GOTO 
&GOTO 
&GOTO 
&GOTO 
&GOTO 
&GOTO 
&GOTO 
&GOTO 


-LISTAB 
- ADDLINE 
-CHGLINE 
-DELINE 
-GLLINE 
-MODLINE 
-BLSCR 
-SCANTAB 
-RESCANT 
- SEARCHT 
-QTAB 

- PREPREP 
-BRREP 
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&IF &SERVN 
&IF &SERVN 
&IF &SERVN 
&IF &SERVN 
&IF &SERVN 


EDIT &GOTO -EDREP 

DESTROY &GOTO -DESREP 
REFRESH &GOTO -REFREP 
REMOVE &GOTO -REMTAB 
SAVE &GOTO -SAVTAB 


-RITORNO 

VRB ERR ETRE ENTERTAINED SESS AS SADSESEER 
* CALL THE VPUT SERVICE TO * 
ve COPY THE VALUES LISTED IN VARLIST ¥ 
¥ FROM THIS PROGRAMS SET OF FUNCTION VARIABLES ¥ 


* TO THE SHARED VARIABLE POOL * 
tsecoktoicokoktetetcokkidedckkictkKeekikkeekkekKe ack ARR I] 


ISPEXEC VPUT &VARLIST SHARED 
ISPEXEC VPUT &ZMSGNA SHARED 
& EXIT 


Setetsidedkdckdetdedlekedkedtedededededeletede delete RRIERERRRERERRRRERT CE CRRREK ck ci 


* SERVICE ROUTINES ¥ 


tededodocdedodedodededodededtedodededtetede de FeceReTe TREE AIRRER RTE RRR ATR IRE RR TR CRT 


- LISTAB 

PMT TTT RATT ETE RRR RETR IREETER RRR RETREAT E REET ER 
* CALL THE TBTOP SERVICE TO - 
* SET THE CURRENT ROW POINTER (CRP) = 
* AHEAD OF THE FIRST ROW OF THE TABLE TELBOOK * 


tsdledellekdletvekioicoticekkhvekhkeeKedcdockeeiekeKekkeetkieck ee Reedcckiktedecedctedkdetecteclck 


ISPEXEC TBTOP &TELBOOK 


DPT ePIC RRERRRRERETRRETRRERETREREREEREERETARERR TERETE RERITRETRRE 
* CALL THE TBDISPL SERVICE TO ss 
* DISPLAY THE TABLE TELBOOK USING THE TABLE TELBOOK. ¥ 


Sebdeteetedokekdedoekdeleketeee eRe ddccecicckiveck kkk tk Rdaedtcik 


ISPEXEC TBDISPL &TELBOOK &TPANEL2 
&GOTO -RITORNO 


- ADDLINE 

dekbdcdedededededededetededededeste Rei ERE RIE RERTRICR RETR IRERRERERRERRIRTRI ICE 
# CALL THE TBADD SERVICE TO TRY TO a 
w ADD A NEW ROW OF VARIABLES TO THE TABLE TELBOOK * 


SolokddclckvecdckvecdedclokdvvetoktkdtehtokidkkkkkdtkeeeReekkekmkekcckistcckicdtckKeiek 


ISPEXEC TBADD &TELBOOK 
&IF &RC NE 0 &GOTO -ALO 
&ZERRMSG = TELBO13 
&GOTO -RITORNO 

-ALO 

&ZERRMSG = TELBO10 
&GOTO -RITORNO 
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-CHGLINE 

RREREREEERERERRERERREBEREEREERERREERERREREREEREERRERREREREEREREREERERE 
a CALL THE TBPUT SERVICE TO TRY TO * 
- UPDATE A ROW OF VARIABLES IN THE TABLE TELBOOK - 


eloute sie ate sfeste wlonlealsntonlsatealsatenteatenutecntsutentsute aleatoalsateals utecleateaton!satonts alactenlsnteatsute ale atoalsntocliselsatentenisalsntsuteutsatenlsclsulentsalonts aleulsclsulsals atoals 
eile ei eee eel ei eee ele eee eee el ee ele ele eee eee i ieee el ee el eee ee ei ee ee el el el ei ee ee eel eee el eee ei 


ISPEXEC TBPUT &TELBOOK 
&IF &RC NE 0 &GOTO -CLO 
&ZERRMSG = TELBO15 
&GOTO -RITORNO 

-CLO 

&ZERRMSG = TELBO18 
&GOTO -RITORNO 


-DELINE 

dededededede dete dete de dete TTT TT TROTTED TOTTI TTT TASES SAI 
* CALL THE TBDELETE SERVICE TO TRY TO ¥ 
* DELETE A ROW OF VARIABLES IN THE TABLE TELBOOK * 


Sle aloaleafantsnloats Ory ate nloutenlentontesntentesnfouts ste wate alontonta ale ntsntoatonltsntontentontontsntonlontentonte ate ntontsaloatsntsntoalentantsatontonionts se ela mts mle ale nlc nto nlanlantontants aloate 
VV ae Gd Ad Ge GV AL AL IRA EGE AL GE Gd GE AL GE ALG GLAD IRAE AE IL GE IE ID GE ALE GRAD AR AL IE IE IL GL IL ARID IV ERIE GL GL GV IDG dE Gh AV sd ad sh ae ad ar at svadsv ad 


ISPEXEC TBDELETE &TELBOOK 

&IF &RC EQ 8 &GOTO -DLO 

&ZERRMSG = TELBO12 

ISPEXEC TBSKIP &TELBOOK NUMBER ( O ) 
&IF &RC NE 8 &GOTO -RITORNO 

ISPEXEC TBSKIP &TELBOOK NUMBER ( 1 ) 
&GOTO -RITORNO 

-DLO 

&ZERRMSG = TELBO11 

&GOTO -RITORNO 


-GLLINE 

PRR RERERREEREEERERREREREBERERREEREEREREERREREERRERRERERERRERERE 
- CALL THE TBBOTTOM SERVICE TO SET THE CURRENT ROW - 
> POINTER (CRP) TO THE LAST ROW OF THE TABLE TELBOOK * 
. AND TO RETRIEVE THAT ROW = 


Pe ee a Pe ee ee ee) Las wale les wlowt, eo a ee ee ee Pe ee | a ee ee ae a ee ee See Be ts bee males wl a ee 
Dr ok Or GOO iO Ok OOO ok ok or Gk ok ok Di ik ok Oi ok ok Gr pi nic oi oi ok oir ok bi oi or bir ok ick bi bk bk Dik oa ok ok Oi i Dar ike tke 


ISPEXEC TBBOTTOM &TELBOOK 
&IF &RC NE 0 &GOTO -GLO 
&ZERRMSG = TELBO16 

&GOTO -RITORNO 

-GLO 

&ZERRMSG = TELBO17 

&GOTO -RITORNO 
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-MODLINE 
ls Joa! 2 0 af, Pre Yo mle atoontas utes £, 2 Pe PS PS Pe y ce eaten wn aa wn! P 
teidevdekdetiet ick addi: 


* CALL THE TBMOD SERVICE TO * 
* UPDATE OR ADD A ROW OF VARIABLES TO THE TABLE TELBOOK * 


PPT af, alo mts a! al ato afon' eles mts oles mls ols les ate a! mabe ales mbes males alas ales nlonto mtn’, PPPs males alco wfc a! al mi ato! 
Setododedtdosedodescvkccskevededevotiiddesetoikdedodedottvkvek kk iedtoldolesetolodekdidotoetedotedek kick tctteks& 


ISPEXEC TBMOD &TELBOOK 
&IF &RC NE 0 &GOTO -MLO 
&ZERRMSG = TELBO14 
&GOTO -RITORNO 

-MLO 

&ZERRMSG = TELBO13 
&GOTO -RITORNO 


-BLSCR 

WRC ICEREREREREEER ERR EREREREREREREREBRRERERERERERREREERERERRERREERERERE 
= SET THE CURRENT VALUES OF THE TABLE VARIABLES TO NULL. * 
s WHEN THE SELECT PANEL CPANEL] IS REDISPLAYED, THE TABLE * 
= VARIABLES WILL BE DISPLAYED AS NULLS ON THE SCREEN. * 


mlontenlsnte alent sntantantentontontents ntanlentonte nts ntontantsntantantsatantentaats ntonts Pao ents nt as ana malas mbes las bee lis lo ml es Leslee ata mle a Ae Oe en ey 
seule lente nla nleslesionionlontonlonts claclectonlentonlanlanlontontonlentanlantonls nlalantonlesleclantestontenlantonleclelogestestonlelccionteslecte sive sesedesesevevevledevovodede 


ISPEXEC TBVCLEAR &TELBOOK 
&GOTO -RITORNO 


~SCANTAB 
al suntan! eo enh bes a! oP as anes mafao mn! lawl nts ato ates ates Ys a la a! al la al Yao mats on! a wha enlas ol aw has woh a on Jas ahs on! a on hae ates ts male lao ol 
teleicdedetetoledekidetckkiciitvikkeechecKdehicikehkikiddtidviveidtdlecchiolletvistcelsddvEd 


ve CALL THE TBSARG SERVICE TO * 
* ESTABLISH A SEARCH ARGUMENT FOR SCANNING THE TABLE TELBOOK * 


ISPEXEC TBTOP &TELBOOK 
ISPEXEC TBSARG &TELBOOK 


WERKE ERERERERERERERERREREREREREREREREREREREERERERTEERRERERERERRRERR 
* CALL THE TBSCAN SERVICE TO SEARCH THE TABLE TELBOOK * 
* FOR A ROW WITH VALUES THAT MATCH THE ARGUMENT LIST 5 


a ae al Pra las lao wt, Py ale alontsatoate a! a a! J a! al al mba! en! 
SevededeicdoiledcdokdekdeiedetedekiotcdietetekkesdviedecsededledhekeekeRRe RRR tek sicdedelededetetde 


ISPEXEC TBSCAN &TELBOOK 
&GOTO -RITORNO 


-RESCANT 


ISPEXEC TBSCAN &TELBOOK 
&IF &RC NE 8 &GOTO -RSO 
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RATER RREEREREEEEERREREREREREERRERRRERERERERERERRERERERERERERERERE 
¥ CALL THE TBVCLEAR SERVICE TO CLEAR FROM THE SCREEN THE * 
¥ VARIABLES DISPLAYED FROM THE TABLE TELBOOK IF ANOTHER * 
ROW IS NOT FOUND USING THE SAME SEARCH ARGUMENTS. * 


Sededodedeslededededevedesesdededcdsdedcvekkvkekdtesedettektectkksedetedetedetdededekdededededetedettedelekedkedededelededte 


ISPEXEC TBVCLEAR &TELBOOK 
-RSO 
&GOTO -RITORNO 


- SEARCHT 

Fovededededededededtedededevedededs te te dete Fee Ne Fe REE EERERERTTEATEERRERERERETETATRERERTICERI 
¥ CALL THE TBEXIST SERVICE TO * 
* TEST FOR THE EXISTENCE OF A ROW WITH THE KEY VARIABLE ¥ 
¥ (LAST NAME) SPECIFIED ON THE SELECT PANEL CPANEL1. * 


. 


Seledeedvetclctoicdetvedededdededetede tee RRR RRR RRR ERE RR RR RRR RRA RMR Ra, 


ISPEXEC TBEXIST &TELBOOK 
&IF &RC NE 0 &GOTO -RITORNO 


t, t, t, tes mbae wl, tas mt PP ee Ses mbes onl fas atanta nf, Rao ate mls mint, tas anf 4 
sededeslesesledesiosededestesievlcskckeabveslesovlcsededtedlenesledevodevocedevdededevlosedodededededevicdescdovodododeceslcstedevlesteslocleciestestons 


* IF THE ROW IS FOUND, CALL THE TBGET SERVICE TO FETCH sl 
a THE ROW FROM THE TABLE. OTHERWISE, THE VALUE OF THE < 
* TABLE VARIABLES REMAINS UNCHANGED. * 
MERE EREEREREREBRERREBREREREBRERCREEEREEREREEBEREEEBEREREREBERERERE 
ISPEXEC TBGET &TELBOOK 

&GOTO -RITORNO 

-QTAB 

TTR TTT REE ERR E REE ERE EEEEREREREREREREREREREREREREREEERERERE 
* CALL THE TBQUERY SERVICE TO OBTAIN FROM THE TABLE TELBOOK * 
si KEY VARIABLE NAME(S), NON-KEY VARIABLE NAMES, NUMBER OF ROWS* 


aloatantentonteatactsntsnts aloatentsatentsatantsatsatsniaatentantsats atentsats ate alanlantsntsntas nts ntonts nts atontantants ate wale ates ates ata ates mts atonta alentantsatants atantesatantents alaatsatesnts aie se ete 
SC EVEN OL EE AL eID OL OD IL OL EL ALTE EE TED ICED EE ITED ICED GL GOEL FLED EL EO EL TE ODES OER TEED TEED ES EVEL ODED ID ED ICED VEDIC ETE ODVEV EV EVES EL EV ED ENED 


ISPEXEC TBQUERY &TELBOOK KEYS (QKEYS) NAMES (QNAMES) ROWNUM (QROWS) 


WRT TERRE ERE BEES EE RCN EN NTN BRERUABCRANEBRERUTEBR ERNE RBRRBRRRER BERBER E 
* CALL THE DISPLAY SERVICE TO DISPLAY THE PANEL TPANEL3 = 


aales ales ales mbes lar ales ales mls mls ales mer ales alas mbes ale ales ale alas mls mle ales aloutsnlsatomles ule alas alsatas nts ntantsantomtic mls utes ules mle mls atc mao utes ates mle alas nlc mteontcmtcntac ale mls malas mtes ales eles ates ales ates ates ales mle miss mbes ates 
Cher ee ee er ee ee ee ee ee ie ee ee ee ee ee ee ee ee eee eee eee ee ed ee ee ee eee eee ee ee ee ee 


ISPEXEC DISPLAY &TPANEL3 
&GOTO -RITORNO 


-PREPREP 


ales atants nlsata of, mle of. males ales mts mates utes metas ales mle mls ates metas mle of nn ee ee en ee ee ae a ee en ee ee oe ee ale ato nls ala nla elo mlontos VJ 
tedededetetewetekdtekittekkickikeekidedtsedolckwchdeckictdvdtvdedoktedcliedetteetoctck wos 


* CALL THE FTOPEN SERVICE TO BEGIN FILE TAILORING * 


mbes abrales afoul ac mle alo nlontentaafontsnlantontsntontoate alsntants alontes ate ate ales afontes ala ntas mts ntsuls atantontonlontantentsatsalonlonte alent mtontes alante atoutontes afontcates atontes ala ntontsntsntes se nts ate 
EAL EL AL AS AC AE IE ALAN AL EE GS UO AE ASAE GN GS GD AE ED OS IL IL GL OD IE AL ITIL GE TYEE GY ON GD INGLES GUID GN ED GEN OREN OD IL GE EN ONE ED IL ERED EVEN SOE ER CRED 


ISPEXEC FTOPEN 
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MEER EEREREERERERERERERERERREREERRREEERRERRERERRRRERRERERERREERERERRERSERERERT 
* CALL THE FTINCL SERVICE TO * 
* DO FILE TAILORING USING THE FILE TAILORING SKELETON TELBOOK * 


\} oe f. anf, ol =! ol las f, al, a! 
sevevededesodedodetodedetetetokdokkikekekiicdKecivckwkedcceck wee Ra sv «LST ek 


ISPEXEC FTINCL &TELBOOK 


aleatont, sales mn! a0 mn Lene! ant ao an han ms fan may ames ma as mn J on ce on Pa on as on Fan en Yas ben Po mbes os! eleals al ante af, ls mlsalontanton' 
esteslontesosfoslosostosiostosiostosic loviosiovie lecledesioniesioviesisdiovicsioncdedodevodededesdotedetededdesekdctedekteictsvtodohesesoktoeikeek 


* CALL THE FTCLOSE SERVICE TO END FILE TAILORING AND * 
* STORE THE OUTPUT AS MEMBER TELOUT * 


sleclenisaleslectoaton! aloulealesalscteals nfeutsnlsntentsalsals clectentsctsntoatsatsntents Ne cle nte clenlsatoalaclentenlasteatenloctostontanlertoats outs nlantente alontontentes le etoatectouteclonloats 
IVIL OV GC EN TR TT ED EVEL IS ES EVES IVES ESE TU EV EVISU ELE EL EV ED ET EDIT ESE TEV ES EVEN EVENTS EC ELEC ET ET EVES EDEL ED ONE ENE ES IVETE USES OD ER ENS 


ISPEXEC FTCLOSE NAME ( &TELOUT ) 
&ZERRMSG = TELBO22 
&GOTO -RITORNO 


-BRREP 

TREN CEERI NEES NE NENT UNC NERNET RE RAR UEC UN RRR RRUEBREEBCRERRERERR 
ot CALL THE BROWSE SERVICE TO BROWSE TELOUT IN THE USER'S * 
* FILE TAILORING OUTPUT MACLIB. THIS FUNCTION IS VALID a 
= ONLY IF THE ISPF/PROGRAM DEVELOPMENT FACILITY PROGRAM * 
* PRODUCT IS INSTALLED ON THE USER'S SYSTEM. * 


ate nlontas alan, alonlsatantents nto m! alealeatsn!salsnten!as nla ns ata a alo nls =! law! © a Pan wa! 5 f, als an! a » atoo! anton! 
SedevedevededodededetdededetioilodeddehkichikkdvcteediettisdteckkeictekvkedckhictckickionickkkekeaekkKeed}ick 


ISPEXEC BROWSE FILE &FTOMAC MEMBER ( &TELOUT ) 
&GOTO -RITORNO 


-~EDREP 

TOUTE TOTE TS TENS TTS TTS TE TET TE TE TE TE TS TS ECT ECTS STS TS TS ES TS TOTS STS STS ESTE TS CTS TS TOTS ETT TS TTS TS TSS TS TS TS TST TCS TS TOT TE 
* CALL THE EDIT SERVICE TO EDIT TELOUT IN THE USER'S * 
* FILE TAILORING OUTPUT MACLIB. THIS FUNCTION IS VALID a 
* ONLY IF THE ISPF/PROGRAM DEVELOPMENT FACILITY PROGRAM 5 
s PRODUCT IS INSTALLED ON THE USER'S SYSTEM. * 


wloulantente nt, Se ate nln tonto mates mle mts nl, mteals ale Jao wa! co eat ce onl co ent en alam mates me co ml co me J ate So mn! ao wal, whe al aontanl, 
sedcdovededodededesetedotodckdelkeckikh heehee RARER RRA RR a aR «KE 


ISPEXEC EDIT FILE &FTOMAC MEMBER ( &TELOUT ) 
&GOTO -RITORNO 


-DESREP 


mloalonloales ate ates mlealontc utente nfontontenlontsnfoaleatontentan!ontcalontantontontoulentontantontentontonlonto te mle nlonte aloalontsnlonlenlentantsntontantentanlentantsatentsntontanlanlanta ste atoates 
GEIL IL EL AV EN ERED ED ALES FLED IL ID ED FLITE IL ELIT GL ITIL TS ED IO TLIC IV IVIL GC IRIS ES AN ELIT GLIDER ERED GL IVIL GC IS ED IETS IT ITED GL ECIL IVIL ID ED INGE GE 


* CALL THE FTERASE SERVICE TO as 
¥ DELETE THE FILE TAILORING OUTPUT TELOUT * 


alo alanlontes afente utente ntontonts nlaateutanloats nlontonle Loute fonts lanl wlonteulantsetenlonlonleclontenloulsnleclaclecleclonleslolesctonlecteclenlenle nl slecleclents cleclentenlontaulon sleste fe 
EERE GS IL EL ALIS ED ANGE EVEL EL EDEL IDEN GR IL ED OLED FT EL IDET ILIV ED TD EDT IL GL ECF IVES ED OD ITEC TILED EV ICEL IO ITIL TD IVGGIV IV ED OS IV OV ENG wo aeae 


ISPEXEC FTERASE &TELOUT 
&ZERRMSG = TELBO23 
&GOTO -RITORNO 
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-REFREP 


mates mle ate ate mts mle mles ale mle ute mle ule alentonte ate ale ule mle nla ale nls alante mts afonlta nantes ate mte als utente ntonta nla mts ale ales ules mle ate mbe alas mtente mate mle ale mle mtomte mle mle mle wlenta mlentouta ate mtentonte uta 
Oe ai oa i ee oe ee ee ee ee ee ee ee ee eee ee ee Wevavalavevevaudyds 


* CALL THE TBEND SERVICE TO * 
* CLOSE THE TABLE TELBOOK WITHOUT SAVING IT ON DISK si 


males a haes alae mls alee whee als alice alae les mbes ahs alae mls nla nln tc alee nlontantsntontsntentantententenlsatentonts alenlantsnlonts ale ntantsn!ontantentaentontsnlontontanlants nlontantants nts wlonloute alonltantenlentanloaltes 
GV OU EU AC AN AL EV OD ENT ED OVEN EEL EN GC ELAS EV ED ECON EL ED ICEL ED AC EN EO EN OD EDIE EVES ELEN ET EV EVEN EV ACES EVEN AVEC ED ED EV EVAN EN ET ED ODEN FEN SD INES 


ISPEXEC TBEND &TELBOOK 
ISPEXEC TBOPEN &TELBOOK 
ISPEXEC TBSKIP &TELBOOK 
&ZERRMSG = TELBO21 
&GOTO -RITORNO 


-REMTAB 
ISPEXEC TBCLOSE &TELBOOK 


wah als hae when whee le a tao ale laren las abee alas las alee ales mln welee alerts mle tes mle mle les lee las al arenlee mln lcs lice enlace eal leone la mle ls a lerelo eles mln nlee alee mle mls alae mle af rnlic a foelc lanl as mlonlomlas ules ale mlenlsnte alsnlcafante 
EV VED EVEN ER EDR AY AD ED EY EV GD EVEL GD AL ED ED AR ED AR ED ER ED ED EV GR AL EV AR EL AL FD ED EL EVIL AD EL ID ENED ED EL EL AD ED GD EL AD EL AD ER ED ED EV OD ED CL AD Od 4N Od OR Od 


* CALL THE TBERASE SERVICE TO * 
* DELETE THE TABLE TELBOOK FROM THE TABLE OUTPUT LIBRARY * 


wt ale ale ale mle mls mle ale ala nlanlontantaatontantes ale mtanten!sn!antantontanfantantants nlen!antentonts alontantantonle alontanltantententantantantouls nlan!snlontontanlantontantantante ntonlante nia nto nts we 
ewe eee eee ee ee ee ee ee ee ee eee 


ISPEXEC TBERASE &TELBOOK 

ISPEXEC TBCREATE &TELBOOK KEYS &TABKEY NAMES &TABVARS REPLACE 
&ZERRMSG = TELBO20 

&GOTO -RITORNO 


-SAVTAB 

De rar ie ok er ok DE Rok CCC ORCL OO ee OC Ok OO Or i oe or Oe oe GO ok Ok Ge Oe or Oe oe oi oe br oie ir oir ok Ok ok ar ok ke i oar ok ik ak ak rok ok ac oad ar ie ok coir 
* CALL THE TBSAVE SERVICE TO WRITE THE TABLE TELBOOK FROM * 
* VIRTUAL STORAGE TO THE TABLE OUTPUT LIBRARY * 


mle ate mle nls lontontantsnlentontas alentsntontontantsnisntententoutontsntontautontsatantontsctantsalantontontantsatsnlontontontsatentontonts atantontante ute nlentoutante ale alsuts ufsateatsntoatsntsatontes 
GRAVEL RIL GD GD ED GEAR IL AD GD ED Gd AE GE EE GE AD REE AL GR GE ED GEER GE GT AD GE AR FE GR GEER AE AE AR ER EGE EDAD ED Ege RED ED AD AR OR GEIR AE AR Ae Ah CR AR OD 4d Fe Ot 


ISPEXEC TBSAVE &TELBOOK 
&ZERRMSG = TELBO19 
&GOTO -RITORNO 


ale 
Pay 
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COBOL IMPLEMENTATION 

In addition to the components listed under "Dialog Components Applicable to All 
Implementations," the following components are required for the COBOL implementation 
of the dialog: 

° Combined selection and data entry panel TPANEL1 


° Function TELEBOOK 

. Function TELESRVC 

COBOL - COMBINED SELECTION AND DATA ENTRY PANEL TPANEL1 

Defintion and display of combined selection and data entry panel TPANEL1, are shown 


below. 


Panel Definition 


)ATTR 
_  TYPECINPUT) INTENS (LOW) JUST(LEFT) PAD(' ')  CAPS(ON) 
@  TYPECINPUT) INTENS (HIGH) JUST(LEFT) PAD(' ')  CAPS(ON) 
) BODY 
aaa aaa lc le Telephone Book. Application. “=ssstssssss-ssssSsssessnesere 


+SELECT AN OPTION: %===>@ZCMD 
% 
% A+- Add new entry 


% Ct- Change existing entry %F+- Refresh the table, from disk 

% D+t- Delete old entry %K+- Remove the table, from disk 

% Gt- Get last entry %L+- List the table 

% M+- Add/Change entry %Q+- Query the table 

% &Z+- Blank screen entry %5+- Scan the table, non unique 

% P+- Prepare report %R+- Rescan the table, continue scan 
% Bt+- Browse report %I+- Search on last name, unique key 
% Et- Edit report *V+- Save the table, on disk 


% Y+- Destroy report 


+Current values / enter search values: 


% 

+ FIRST NAME ===> _TFNAM + 

+ LAST NAME ===> TLNAM + 

+ LOCATION ===> TLOC + 
+ PHONE NUM ===> TNUM = + 

+ PHONE COLOR===>_TCOLOR + 
+ PHONE TYPE ===> TTYPE + 

)INIT 


.CURSOR = ZCMD 
&ZCMD = &OTELOPT 


60 ISPF Dialog Management Services Examples 


J 


C 


&VARL = '(TNUM TLNAM TFNAM TLOC TTYPE TCOLOR)' 


IF(&ZERRMSG 7= 


1 ') 


.MSG = &ZERRMSG 


&ZERRMSG = ' 


) PROC 


&ZSEL = TRANS( &ZCMD 


t 


&OSEL = &ZSEL 
IF(&ZCMD = S) 
&ZCMD = R 


L, 'PGM(TELESRVC) 
A, 'PGM(TELESRVC) 
C, 'PGM(TELESRVC) 
D, 'PGM(TELESRVC) 
G, 'PGM(TELESRVC) 
M, 'PGM(TELESRVC) 
Z, 'PGM(TELESRVC) 
S,'PGM(TELESRVC) 
R, 'PGM(TELESRVC) 
T, 'PGM(TELESRVC) 
Q, 'PGM(TELESRVC) 
P, 'PGM(TELESRVC) 
B, 'PGM(TELESRVC) 
E, 'PGM(TELESRVC) 
Y, 'PGM(TELESRVC) 
F, 'PGM(TELESRVC) 
K, 'PGMC(TELESRVC) 
V, PGM(TELESRVC) 


b] 
ae ) 


&OTELOPT = &ZCMD 


IF(&ZCMD 7= R) 


VER (&TNUM , PICT, 'NNN-NNNN' ) 


) END 


PARM(/LIST 


PARM(/ADD 


PARM( / CHANGE 


PARM( /DELE 


PARM( /GETLAST 


PARM(/MODI 


PARM(/BLANK 
PARM(/SCAN 
PARM(/RESCAN 
PARM(/SEARCH 
PARM(/QUERY 
PARM(/PREPREP 
PARM (/BROWSE 
PARM(/EDIT 
PARM( /DESTROY 
PARM( /REFRESH 
PARM( /REMOVE 


PARM(/SAVE 


&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 
&VARL) ' 


TE 


FY 
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Panel Display ) 


SELECT AN OPTION: ===> C 
A - Add new entry 
C - Change existing entry F - Refresh the table, from disk 
D - Delete old entry K - Remove the table, from disk 
G - Get last entry L - List the table 
M - Add/Change entry Q - Query the table 
Z - Blank screen entry S - Scan the table, non unique 
P - Prepare report R - Rescan the table, continue scan 
B - Browse report T - Search on last name, unique key 
E - Edit report V - Save the table, on disk 
Y - Destroy report 


Current values / enter search values: 


FIRST NAME ===> LINDA 


LAST NAME ===> MILLER 
LOCATION ===> KITCHEN 
PHONE NUM ===> 462-4441 


PHONE COLOR===> RED 
PHONE TYPE ===> WALL DIAL 


I Sa J 


COBOL - FUNCTION TELEBOOK 


ID DIVISION. 
PROGRAM-ID. TELEBOOK. 


¥ THE OBJECTIVE OF THE CODING TECHNIQUE OF THIS APPLICATION IS 
¥ TO ILLUSTRATE ISPF SERVICES 


ve THE APPLICATION CONSISTS OF 


¥e THIS MAIN PROGRAM - TELEBOOK 

w 1 SUB PROGRAM - TELESRVC 

* 3 PANELS - TPANEL1 TPANEL2 TPANEL3 
* 15 MESSAGES - TELBO10 THRU TELBO24 

* 1 FILE TAILORING SKELETON - TELBOOK 


¥ THE APPLICATION PROVIDES THE FOLLOWING FUNCTIONS 
¥ FROM PANEL TPANEL1 TO ACCESS A TELEPHONE BOOK 


ADD NEW ENTRY 

CHANGE EXISTING ENTRY  F REFRESH THE TABLE, FROM DISK 

DELETE OLD ENTRY K REMOVE THE TABLE, FROM DISK 

GET LAST ENTRY L LIST THE TABLE 

ADD/CHANGE ENTRY Q QUERY THE TABLE 

BLANK SCREEN ENTRY S SCAN THE TABLE, NON UNIQUE J 


NEZQOOO & 
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PREPARE REPORT R RESCAN THE TABLE, CONTINUE SCAN 
BROWSE REPORT T SEARCH ON LAST NAME, UNIQUE KEY 
EDIT REPORT V SAVE THE TABLE, ON DISK 

DESTROY REPORT 


c 
rw td 


ENVIRONMENT DIVISION. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 


01 CONTROLE PIC X(8) VALUE 'CONTROL '. 
01 ERRORS PIC X(8) VALUE 'ERRORS '. 
01 CANSEL PIC X(8) VALUE 'CANCEL '. 
01 LOG PIC X(8) VALUE 'LOG ng 
01 TERMINATION-MESSAGE PIC X(8) VALUE 'TELBO24'. 
01 SELEKT PIC X(8) VALUE 'SELECT '. 
01 ‘L15 PIC 9(9) VALUE 15 COMP. 
01 COMMAND - STREAM PIC X(15) VALUE 'PANEL(TPANEL1)'. 
01 SETMSG PIC X(8) VALUE 'SETMSG '. 
01 TBCLOSE PIC X(8) VALUE 'TBCLOSE '. 
01 TBCREATE PIC X(8) VALUE 'TBCREATE'. 
01 TABKEY PIC X(7) VALUE '(TLNAM)'. 
01 TABVARS PIC X(30) VALUE 
'(TFNAM TLOC TNUM TCOLOR TTYPE)'. 

01 TBOPEN PIC X(8) VALUE 'TBOPEN '. 
01 TELBOOK PIC X(8) VALUE 'TELBOOK '. 
01 WRYTE PIC X(8) VALUE 'WRITE - 
O1 TBSKIP PIC X(8) VALUE 'TBSKIP '. 
01 VPUT PIC X(8) VALUE 'VPUT na 
01 VPUTLIST PIC X(36) VALUE 

"(TFNAM TLNAM TLOC TNUM TCOLOR TTYPE)'. 
01 SHARED PIC X(8) VALUE 'SHARED '. 
01 VRESET PIC X(8) VALUE 'VRESET '. 


PROCEDURE DIVISION. 

* CALL THE CONTROL SERVICE TO * 
* SET THE ERROR PROCESSING MODE FOR THIS PROGRAM TO * 
* TERMINATE ONLY FOR ANY ERROR THAT HAS A RETURN CODE OF # 
* 12 OR HIGHER * 


Pe re ee ee ee ee re ee ee ee ee ee | ee ee er re ee ee tas nl, Cas on¥ an nt es ntas ates mi: ee ae ee en ee D Pao on ben onl 
Sedededetesededs FePePe RIERA EERE AR RM Raa aa a RR cellllek kets 


CALL 'ISPLINK' USING CONTROLE ERRORS  CANSEL 


Fen a ten anf, Pe Pe ee Ts ones on tan ma, | a Pe fomta mlants atsat, °, ER a a ae a f. Pa fs mls mlm, 
*isdetkdekudhikndddhidtckhdlokkeddooccdkivitcddcoodlekilvicioclolekdeisivivkick 


¥ CALL THE TBOPEN SERVICE TO * 
a OPEN THE TABLE, TELBOOK IN WRITE MODE * 


as entes Pareles wee Mao eatce enlace mlew men ent co lee eter ets antes mts mls alomtsatsmtontanta atententantontaniantaontsat, {a tes mtes ato of fase anf as wo lae ont eaten mls mf . fs af, fae mates anf, f font, 
PORTER TET TE TEES TET TE TEE TOTS TSEC TE TES ICTS TS ISTE TTT TCE NICER BRUNE ERC ERRBRBREERERERERERCERERRERCER 


CALL 'ISPLINK' USING TBOPEN TELBOOK WRYTE 
IF RETURN-CODE = 8 
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PRR TTR RR RERREERRERERR MARR <a RCRA RR A IR: 
“ CALL THE TBCREATE SERVICE TO “ 
* CREATE THE TABLE TELBOOK IF IT DID NOT EXIST. THE * 
“ KEY VARIABLE IS SPECIFIED IN TABKEY AND THE NON-KEY * 


* VARIABLES ARE SPECIFIED IN TABVARS. * 


$n aan Pa mt ae mas man onan me Yan Pan can a ne a ean mPa enfant fa Pan fa ale rll alo etna tinn tn ale ate ale atone ntantantsatantentantententantentontsctoalaatantsatentactontant, Saulautantaatsataatoa! 
x a tn a 
WONT IS TS TC TCT TS TCE ECTS TSEC ICES TSEC TT TS TEAC EC TCI EC EEC TE EC ESTE CECE TR EERRER RA «MMMM «AAS: 


CALL 'ISPLINK' USING TBCREATE TELBOOK TABKEY TABVARS. 


# CALL THE TBSKIP SERVICE TO = 
* MOVE THE CURRENT ROW POINTER (CRP) OF THE TABLE TELBOOK z 
* FORWARD ONE POSITION (DEFAULT). THE TABLE VARIABLES * 
* WILL BE SET TO THE VALUES IN THE FIRST ROW OF THE TABLE. * 
¥ IF THE TABLE WAS JUST CREATED, THE TABLE VARIABLES WILL * 
* CONTAIN NULL VALUES. > 


at Ba ea enV an Pas Pe Pen wfc Pan mY alice Paco aban w Pas malar tae lao len fen hae le alan eben alc wlan mae eal as ales tal an tan tales tal an tales on Sat eal bes enlice mal an ean en as on an tol es tian ea Fan enhance tales wScn eal an eles tol cn taf an aban ofan le exes bao eaten mbes wale enfant eal tan he onto 
VENA Ge A AN ALIN EL ANON ELEN ED OL GRIT ED EVEL ODER ED EN TC EC ED TCE EDEL ECED ER EC ELEC ED ER ET ED ESTO ELEN EL ESET ED EDEN ET EVEN ATED ENED EV EDEN ELEN EDEN ED 


CALL 'ISPLINK' USING TBSKIP TELBOOK 


* SET THE TABLE VARIABLES IN THE SHARED VARIABLE POOL. THESE * 
* VALUES WILL BE USED TO INITIALIZE THE VALUES OF THE * 


ie VARIABLES IN THE SELECT PANEL TPANEL1. * 


Mew las aber ete alae alae len lee fn alee les Pan lee las eles ales els mls mle mles ales ation lan alms alas etc eltes alae alae mle ales alee ales el eles wl mler ales mle ales mlermles mle alas ele nto nla alec nta ules alas ntantonto fe aleate sie wlan aie oles wfc ales alo ate 
GE RANGE ICAL GREE AE AE AR GEIR OR ARAL ICEL IL TREC ATELIER ERED CGC ID ERED ECE ICED ERAT ACOC DER GUIC GIL ER GC GLT ECS IR IDEN GREED GEER ERIN IL OD IN GD 


CALL 'ISPLINK' USING VPUT VPUTLIST SHARED 
alee Mae fee bee wlan a bee ence a Pacn Men eaten fen ean onl co en Vics en lan enlas enlace mS an en ¥an eaten Saw enlace Yan ma bconlan eaten en¥an ealcn enbae enfcn enka me bas mba lc mabe ales eben exlics wlan wf cn males eabics mtcn males enbes wnlan enlas en ben Mien malen Olan onan es on Fas mbae bes on bes fa le le lot ls mtontontio 
FR AVAIV AT AVAL ALATA GL GL ITA AVAL AY GLAD GT AD AIL AIT AL AVIV AT IL AT IV IVD ID ETAT IVIL ID AL ALI IL IT IL AT AL ID IL ID GL IVIVIT AD IV AL ILIV IV IV ED Ad AV EV dy sd gd er 


ve CALL THE SELECT SERVICE TO CONTINUE TO * 
ve DISPLAY PANEL TPANEL1 AND CONTROL THE INVOCATION OF * 
* THE SUB PROGRAM TELESRVC * 


Msn whan fae fa as man malice nar ee ofan eats ln aban mfr teen mbes Pan Panels mtn enhee fen eles alae nl fae tes mle otic ale nla mlen!cntcntentantanlontcute ntantsntantontantentontsntonta aloala ate alents atontenloutantantenten!sulente 
AREAL AL AL AL AD ALAN EL AN AN EL AV AR AVAL AVAL ALAR ALIN IE IL IN GL AV AIL IV ITED AL AVIV IVIL AVIV ILIV AVIV ILIV IV IV EVEL IV ILIV EDEL AVL IVIL GV IV ITAL AL EV IV ED ED CD 


CALL 'ISPLINK' USING SELECT 115 COMMAND-STREAM 


al. mls ola alas mle wl, =f, f 20 mn! S20 alae Fa onl as on a on! $a anlar en! ae ntan mnlas nl, Nas ant aw ons nes ol atonts af. Nas ooo whan wef, ato Lao V f ae enka on! an wl aa! 
VENTE TERT RTT BEER EREREREEEBEEEREREEERREERREREERRREREREBRERE 


* CALL THE TBCLOSE SERVICE TO CLOSE THE TABLE, TELBOOK * 


wale alee mbes alo ala etas atic mts nlc mtomles mle alicnt a ate mle mlatisntic utes ata nfontemlantanta antes nls alamtents alontonlas ale mtontamtonts utente mtontas nfonlaalantentontants ste whales ale mle ate mlonlenlcatontontsntsatanteute 
FE FEIN ITIL GL AT AN AE GV ED GER AL GEIS ID IL ED ICIS IT IT EC ER GEIL ITED ID EC ALIN GT ID EL DIVIDED IRAE GT AT IDI IEEE ITED ID ED SEIT IDTID EDIT GL ITIVED ED ED ED GD 


CALL 'ISPLINK' USING TBCLOSE TELBOOK 


ela atonts ates alanlantantanlentsnionten'aclculentontsale nlanla ate elants utente ate ale alsalenteclantaniontentoate aloutsnlsntsntante alaulentoutects ate alontoutounte ute oe sfesfestesty ln ates ale mateo aleo ula se ale 
ER AVAL AL AY AD AL AT AE ADL ID ANAL ALAR AD AN EE AL AS AD GRAD ET AR AL AR AD ER AR AS ENGL ARAL EL AL IL GL GL ER AVIV ED IV EVEL AT IV EVIL AL EVAL GV GD OD GV GV GV GV EDV EdD Cd dd Od 


# CALL THE LOG SERVICE TO * 
¥ PUT THE MESSAGE TELBO24 ON THE ISPF LOG FILE = 


alonlonte alontoatontonta atantsntantontsntontantontsntentsclontonlsntontantanlanisatsntontasats fe nlenlentectactentectontentents alata fonts clentententoate Neale ate fomtoatantenlenlentoclsalantante Ne 
Pie te i ee ee ee er ee ee eee ee ee ee eee he ee ee ee ee el 


CALL 'ISPLINK' USING LOG TERMINATION-MESSAGE 
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PETE TEM ENE TIE Te Teo TENE NS TENTS TS CES STS TS STOTT TC TSEC TS TCT TCE ETC TCT TETERRSTRRERRIER 
ss CALL THE SETMSG SERVICE TO > 
* PUT THE MESSAGE TELBO24 ON THE NEXT SCREEN DISPLAYED x 


Feveveseseslededevodedesevevledeslocovlesododonedededkdedodtesedtesetevededededededesedevevesededevedevededesedededededededededevodesesvede 


CALL 'ISPLINK' USING SETMSG TERMINATION-MESSAGE 


alonle mtontonts ale ntante nlentontectsalsalsntsntsntantsntentaatsntenisatasntsatsatsalantcn!snlsateclientsalsatsntsnlsatasnton!salsalsntsntsntesntentsntontsntententontontonte nlentantsnteatsateatontsate te 
SEI AS OT EN AL CEE AN ETON TREN AL EL OD ITER GL ET Oe CCID EN IU OD EVAN ICEL EC TUTTLE TOE EN EL EL GLEN ELEC IL EL ELEC ED EL ELITE EL ENE EU EV ED EVEN ENED CN AE 


* CALL THE VRESET SERVICE TO * 
* REMOVE THE ISPF ADDRESSABILITY OF ANY VDEFINED VARIABLES * 


slontantenlenlenlontontentanloatenionteatoals fa atonta mtontsntesntentantonton!sntsntsatsntentontsn'on'tsntantonts fontenlentontontonlonts stontsnlentententontenlonianta foals atontsntentantentonlonlente 
Pe ee ee ee ee ee eee ee ee ee ee eee ee ee ee ee ee 


CALL 'ISPLINK' USING VRESET 


GOBACK. 


COBOL - FUNCTION TELESRVC 


ID DIVISION. 
PROGRAM-ID. TELESRVC. 


ENVIRONMENT DIVISION. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

O01 TPANEL2 PIC X(8) VALUE 'TPANEL2 '. 
01 TPANEL3 PIC X(8) VALUE 'TPANEL3 '. 
01 TELBOOK PIC X(8) VALUE 'TELBOOK '. 


01 TELOUT PIC X(8) VALUE 'TELOUT '. 


whe mle alontas ate afententoatonte ale ale ale ate ate ale ale aloatec ale n!o atonts alen!s alc als alacant ala nla ntontc nts aloutantantas nts afon! cata als ate alec ate mls nlc nto mle ala nlententsntantonlsatouts fesfeslesle te feale 
rw er iri ee ee eee ee ie eee eee eee el ee ee ee ee ee ee ee ee ee ee) 


* FTOUTPUT SHOULD CONTAIN THE NAME OF THE USER'S FILE 
* TAILORING OUTPUT PARTITIONED DATASET WITH THE MEMBER 
* SPECIFIED AS TELOUT. 


+ 


+ OF 


* FOR VM, FTOUTPUT SHOULD SPECIFY THE FILEID OF THE FILE 


* TAILORING OUTPUT MACLIB WITHOUT A MEMBER NAME. EXAMPLE: * 
* ve 
*01 FTOUTPUT PIC X(18) VALUE '(FTOUTPUT MACLIB )'. * 
mS rh 


RVR RETR RETERE RR AIEEE TTT ERR BETTER ARE BEER EERETARERERERRERRRRERRE 
O1 FTOUTPUT PIC X(30) VALUE 

''" ISPFPROJ.FTOUTPUT(TELOUT)'' '. 
QO1 TABKEY PIC X(7) VALUE '(TLNAM)'. 
O01 TABVARS PIC X(30) VALUE 

"(TFNAM TLOC TNUM TCOLOR TTYPE)'. 
01 BROWSE PIC X(8) VALUE 'BROWSE '. 
O01 DISPLAYE PIC X(8) VALUE 'DISPLAY '. 


Example 2. Telephone Book Application 65 
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EDIT 
FTCLOSE 
FTERASE 
FTINCL 
FTOPEN 
TBADD 
TBBOTTOM 
TBCLOSE 
TBCREATE 
TBDELETE 
TBDISPL 
TBEND 
TBERASE 
TBEXIST 
TBGET 
TBMOD 
TBOPEN 
TBPUT 
TBQUERY 
TBSARG 
TBSAVE 
TBSCAN 
TBSKIP 
TBTOP 
TBVCLEAR 
VCOPY 
VDEFINE 
VDELETE 
VGET 
VPUT 
VREPLACE 
ZERRMSG 
ZMSGNAME 
QKEYS 
QNAMES 
QROWS 
QROWSDATA 
QROWSDATAZ 
CHAR 
MOOV 
SHARED 
ZEERO 
ONE 

L8 


PARM-WORK. 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


O04 PARM-LENGTH 


04 FILLER-SLASH 


04 SERVN 
04 FILLER 


04 VARLIST 


X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(8) 
X(9) 
X(8) 
X(8) 
X(8) 
9(8) 


Z(8). 


X(8) 
X(8) 
X(8) 
9(6) 
9(6) 
9(6) 


PIC 
PIC 
PIC 
PIC 
PIC 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


S9(4) 
X. 

X(7). 
4 


X(36). 


'TBBOTTOM' . 
'TBCLOSE '. 
'TBCREATE' . 
"'TBDELETE'. 
'TBDISPL '. 
'TBEND 

'TBERASE 
'TBEXIST 
'TBGET 

'TBMOD 


"TBTOP 
"TBVCLEAR' . 
"VCOPY 

"VDEFINE 
"VDELETE 
'VGET 

"VPUT : 
"VREPLACE'. 
SPACE. 


' 
{ 
{ 
' 
t 
' 
’ 
' 
'TBSAVE '. 
{ 
’ 
’ 
t 
t 


"(ZERRMSG)'. 


"QKEYS'. 
"QNAMES' . 
"QROWS '. 
ZERO. 


' CHAR - 
‘MOVE is 
‘SHARED '. 
O COMP. 
1 COMP. 
8 COMP. 


COMP. 
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LINKAGE SECTION. 
O01 PARM PIC X(47). 


PROCEDURE DIVISION USING PARM. 

¥ MOVE THE PARAMETER LIST CONTAINING THE FUNCTION REQUESTED * 
¥ BY THE USER (SERVN) AND THE LIST OF TABLE VARIABLE NAMES * 
* PASSED FROM THE SELECT REQUEST IN THE SELECT PANEL TPANEL1 * 
a TO THE PARAMETER WORK AREA. * 


ales exhan axles alae mts ele mbes afer alas mlomtes mlaomtas alc mle alto nts nlontcmtoalasntsaleatsntantenlontontantsatantsatsatsantealontontentantantaatsnlontsntsatantantsntentoalaatoatenlsalsntaatsatsntasaloatasalsatantsntants 
Ce Se er ee eee eee ee eee ed eee ee ee ee ee ee ee eee eee eee eee eee ee ee ee eee ee ee 


MOVE PARM TO PARM-WORK 


ray 


CALL THE VDEFINE SERVICE TO GIVE ISPF ADDRESSABILITY TO x 
* ZERRMSG AS DEFINED WITHIN THIS PROGRAM AS A CHARACTER FIELD * 
* WITH A LENGTH OF 8 * 


wloale als ntententsatentantententasalente ale ulentanteatactentesntonloatesnlonts clontsntsclanlsulonte ate ule alonlanlanteacionloctactantontes ule alonla utente atentoatsafoctentontonts aleatantsutentantsclaaisela 
ZEN REL NAN ES EN TC EN EN ERASE EVEN EO EN ES ENED EC EVER ED EL ED EDEL ELEC ED GT EN EO ELEC ERED TC ENGL EDEL EN ELEN AVES ED EVER EVEN ATES EN EVES REO EE EVEN EO ES 


elenlaatsalantesntsntealonls aloutesatoatenlontontsatantenlsaloatsutantantsntantantsatsatantontsntentantontsntantententsatsatsantoatontaniaalsnianlonts alantantsntentantontas ates nlontsntontontontas utes ale ats 
rey Per Sard Ser er 0 vier der er der ee ir ere ir) er ree ede er ded eee ede ee ee ee ee ee de ee 0 ee ee de ee ed ed ee ee ee ee lee ee ee ey 


CALL '‘'ISPLINK' USING VDEFINE ZMSGNAME ZERRMSG CHAR L8 


ales als atontes ateatententsntontantasntasalsata atonte ntontententantantsatsatsatsatsatsatontentoutsntsalsatsctentantontesntonlontantsates alonteatealaateatentsntontenlsntentsntantas aleate alonta ate afeate alontc 
EE Ge AUER ER GR Ee EL AN ER AN AR ER GR Ge ER ER ED AR FE GN EL ER GR ER ER EN ER ER AD aN aR ER ah FRR FR ER AR AR AR FR FR FR AR aR ER AR Fe FR aR ee AR eR eR ee Ce ah ee ah se ee ee ee ad 2h 


= CALL THE VGET SERVICE TO a 
* COPY THE VALUES FOR THE TABLE VARIABLES LISTED IN VARLIST * 
* FROM THE SHARED VARIABLE POOL * 
* TO THIS PROGRAMS SET OF FUNCTION VARIABLES * 


mlretes alc alas monte aloutes ates nla ales eles afc nls atc ntontontentcnlontaatsntenlontentontontsateatsntacates afoalentonte ates ntontsntontasntontontentontaalsntsntentontsntentsatonta nlonlonlantesalentantsnlealontento 
yer yar er er ar 0 er ver er ard ir ee er di er er ee re ee ee re 0d ee ee ee ee ee ee ee ee ee eel ee el eee ee ee ee eee iy 


CALL '‘ISPLINK' USING VGET VARLIST SHARED 


PERFORM SERVICE-ROUTINES. 
dededododeds todedetedetedededekeRetehs Fekete SRT RARER RERERRAEPRREREREERERRE ER ERR ERR RERE 
* CALL THE VPUT SERVICE TO * 
7 COPY THE VALUES LISTED IN VARLIST AND THE MESSAGE NAME * 
* VALUE FROM THIS PROGRAMS SET OF FUNCTION VARIABLES * 
* TO THE SHARED VARIABLE POOL * 


ale wlantonlec alonte alontesntantenlententente ulecloutsaloate aloulecaleatante alsntente ntenlonts nlenles alent ale alent, slestesfeciontectont oles ale ale aloule oleate ale ale ule ale nleatsntentenlosntesntententwonts ule 
PE EU GL Oe GE ES FU Ee EN AE EN ES AN EN ER GN EL ENED ES ES OL ER EN GO EV LENE EC ENED IV EV ENCES EC ENGL ONES EDEL EC EVEL EV GL EV EDV EC AV EVEN ALEVE EN EV EC ENE EN EN ED EN 


CALL '‘ISPLINK' USING VPUT VARLIST SHARED 
CALL 'ISPLINK' USING VPUT ZMSGNAME SHARED 


Sao Ys ata {20 entas onan enlace elas han tn wlenle ate a! Py | oles lao ml, lo ae alontsalants oleate eo a0 wa an on? co! » ale elon! Pry 
devededevevedededkdokiidtelohkeeiotkickkeekkheei decker kewl keke Rin 
* A VD V * 
“ CALL THE ELETE SERVICE TO “ 


¥ REMOVE ISPF ADDRESSABILITY TO ZERRMSG 
* AS PREVIOUSLY VDEFINED WITHIN THIS PROGRAM * 


sfeulecto wahee alate ale alee alsa be alr als alae ale ale nlc nls alontsntsntcntontenlsalontente ata als alontenteatantsaticntecnlcntaalaatasntec atic utente alactsntcetonte alsates ale whale ale alacant als ale alenles alentenleates ale 
SEAN EN GS EL EL ONES EUAN EE ES ET CERES EE ELEC EE ED EDEL EN GLEN ESET ER EC EN EN ER EC EN EN ES ECON ER EN EN EN EO OR ELEC GOES EVES EN AN EVEN ECON EVER EC EN EN EN EU ED ED 


CALL 'ISPLINK' USING VDELETE ZMSGNAME 
GOBACK. 
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SERVICE-ROUTINES. 


IF SERVN = 'LIST  ' PERFORM LIST-TABLE 
ELSE IF SERVN = ‘ADD ' PERFORM ADD-LINE 
ELSE IF SERVN = 'CHANGE ' PERFORM CHANGE-LINE 
ELSE IF SERVN = 'DELETE ' PERFORM DELETE-LINE 
ELSE IF SERVN = 'GETLAST' PERFORM GET-LAST-LINE 
ELSE IF SERVN = 'MODIFY ' PERFORM MODIFY-LINE 
ELSE IF SERVN = 'BLANK ‘' PERFORM BLANK-SCREEN 
ELSE IF SERVN = 'SCAN  ' PERFORM SCAN-TABLE 
ELSE IF SERVN = 'RESCAN ' PERFORM RESCAN-TABLE 
ELSE IF SERVN = 'SEARCH ' PERFORM SEARCH-TABLE 
ELSE IF SERVN = 'QUERY ‘' PERFORM QUERY-TABLE 
ELSE IF SERVN = 'PREPREP' PERFORM PREPARE-REPORT 
ELSE IF SERVN = 'BROWSE ' PERFORM BROWSE-REPORT 
ELSE IF SERVN = 'EDIT ' PERFORM EDIT-REPORT 
ELSE IF SERVN = 'DESTROY' PERFORM DESTROY-REPORT 
ELSE IF SERVN = 'REFRESH' PERFORM REFRESH-TABLE 
ELSE IF SERVN = 'REMOVE ' PERFORM REMOVE-TABLE 
ELSE IF SERVN = 'SAVE ' PERFORM SAVE-TABLE. 
LIST- TABLE. 


% “CALL THE TBTOP SERVICE TO 


* SET THE CURRENT ROW POINTER (CRP) 
WF AHEAD OF THE FIRST ROW OF THE TABLE TELBOOK 


aleatlsntsutsatautoate ste s'e ses! ‘enle we sie se ses se ste fe se atealsatsata ste ste aloalsate te we ate ste ss ate se ste fest lente ste we sfe fs s'e atsate ste le ste ses ‘esle ste se se ae se se se s‘e se se eaten ate ste 
CAM AMAM AMAR AMARA we CAI verve qo 


AAA 


CALL 


a 


sie alsntoula se ste sloclaataalaalacten! sleste ste sc ste ate ufo nl, steclesic sess s'eo nate sfeatestoute slesteslestc sleale se se sfentesiecte slesle ss steste ate nie seslesesedlesies { sle stestes ale ste slesleule 
ri iy we veveees vores. riety 


a CALL THE TBDISPL SERVICE TO 


"ISPLINK ' 


Var awa 


USING TBTOP 


LATA) 


TELBOOK 


* DISPLAY THE TABLE TELBOOK USING THE PANEL TPANEL2 


sless slestes we sie ste ste ws se ste ste ste se ste se ses slo atew! | sleslosteste aloe rid se sie se ses! eule ss ste se +e se se ste slewte ste se sey wleule se se sfeste sles we s< sfc sie sr se ws sie ste sleslests se se ate Law lonte 


CALL 


ADD-LINE. 


"ITSPLINK' 


USING TBDISPL TELBOOK TPANEL2. 


atoate teats ale slestectontectestonto ste ale ateale slerloclento oe sevfeste alesle ate sleslestertc s'c se ste slestecles! slevesterte atontontaate ata stestecte elactaate 


qe evaeb ah at 


wavev_ avy ev dv ad 


W CALL THE TBADD SERVICE TO TRY TO 
We ADD A NEW ROW OF VARIABLES TO THE TABLE TELBOOK 


a) 
evededevetcledededcdededededetes 


slesic vests sesisslesle ste se steve ve ste sleste stesle ste sferte sc siecle s'e se se sleslestestes! fevleats slesle serie stesiestocte ate sertesteste steute stestestesteats my slesteclentastactants stesleston ss 


CALL 'ISPLINK' USING TBADD TELBOOK 
IF RETURN-CODE = 0 

MOVE 'TELBO13' TO ZERRMSG 
ELSE 


MOVE 'TELBO10' TO ZERRMSG. 
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CHANGE-LINE. 
FIC ICC DCSE OIC DIOGO OOO OR oe Ook Ok OC Ok Gk kG Ok Gc Gk Gi ke Gk oi ok Ok oir i oi GO OIC ok Or Gk Got ico ok oir ak onic or or brik ick Gio 
* CALL THE TBPUT SERVICE TO TRY TO * 
* UPDATE A ROW OF VARIABLES IN THE TABLE TELBOOK * 


ala elise ealhen Pao en fas ea he ealhen exten ea facs ma ban en ben malcw eafas mlcn enlics enlace ent ace enbicn eal an eal co tn Pas Yas ma San en an tbr tn ban on fas ea an tn Pas tn han tn Lao eas en ao bce mV co on ban enlace tn ban en as en Panta aw han tafe Pew las ren bas hn mao mls wlaoenlc mia niasnlentoutoc wle whe ale alent nlonlontc ats 
GR AC R Ee AR AR ER Ge ARN Ee Gh Ee GR Ge ER Ae ae GR Ee GR EN GN ER OR EN EU EN ER OR ER ER REN ER ER EN IN ER AR ER ELEN ER EL ARERR EL GR ER EL ER CR ER CR ED AR ER EL EL ER ER ON ER ON 


CALL 'ISPLINK' USING TBPUT TELBOOK 
IF RETURN-CODE = 0 

MOVE 'TELBO15' TO ZERRMSG 
ELSE 

MOVE 'TELBO18' TO ZERRMSG. 


DELETE-LINE. 

TOMER TETRA ERE ER REE EE BURNT BSCE BERT R EERE RAR BRRERBRERERBETRREREREBRERERERER 
- CALL THE TBDELETE SERVICE TO TRY TO al 
5 DELETE A ROW OF VARIABLES IN THE TABLE TELBOOK = 


naw nbs ence eal an tn an ent an tn ao ents maha enlan nap x ban eaten nan tan tn ban Pao tan ence enn maben tal cn ex! an tn Ps en an enlsn tn ¥en tnlae aban mn an ens neo tn bas mabe aban en ben eaten mba lee len mtrntec alent mls ntee mls ntontocntonte mls mtacntes alent mtonte ales mle atc nto ste malo utsnte 
he eee ieee ee eee ee eee ee eee eee eee ee ieee wi eee ee eee ee ee ee ee 


CALL 'ISPLINK' USING TBDELETE TELBOOK 
IF RETURN-CODE = 8 
MOVE 'TELBO11' TO ZERRMSG 
ELSE 
MOVE 'TELBO12' TO ZERRMSG 
CALL '‘ISPLINK' USING TBSKIP TELBOOK ZEERO 
IF RETURN-CODE = 8 
CALL '‘'ISPLINK' USING TBSKIP TELBOOK ONE. 


GET-LAST-LINE. 


enle als mle ales ele ato ntonta mlonlomtes ate alantontontantaulomtonts alante afomte alana mle nl omle af am! cmtec mle mle ate mle ale mta mls mle ale mle mle alontsnlantasate ate ate nfantealontentante ate aleata alentontsntontcmtea mle 
GRAV ALAR AR AL GR AR AL AE GD GEIR AE GL AR GR GR AL GR AR ARAL ARAL GR GR GL GR EGR AR AGL GR ER ARAL AE AL GR IL ALAR GL AL GL GL GL GL EL ARAL ADIL AL GE CD Gd GR AE Ah GR Gh Ce ed ad 


* CALL THE TBBOTTOM SERVICE TO * 
* SET THE CURRENT ROW POINTER (CRP) * 
* TO THE LAST ROW OF THE TABLE TELBOOK * 
* AND TO RETRIEVE THAT ROW * 


mafia ales mboete alo atemts afentas atontantoatoc ntantesntsaltsmtontonts utente mlentsmlontentontsntsnlontantsnlantonltantsatsalonlsatsntantontscntontsntsnlsntontontentontsatasntsnle mlontsnlsntontsntantentsnts mts mts 
ER VED EL AV ED IR ED AD GD ER AD ED AD ER EL AD ERED AL ED ER EDEL AUER ET ERED GLEN ED ELAN ES ED ED EL OR AL ER ED ER GD EL GL ER ENED EE EVER EVER ER ED EL AV ED AN AD AL ER AD ON OD 


CALL ‘ISPLINK' USING TBBOTTOM TELBOOK 
IF RETURN-CODE = 0 
MOVE 'TELBO16' TO ZERRMSG 


ELSE 
MOVE 'TELBO17' TO ZERRMSG. 


MODIFY-LINE. 


mln lentantsnfontsntsntantontontsatasatsatantsntontoatsatoalsatsntantonltsutsntsntanteatesatoatontentontsatontontenltantaatsates nfantsntwatsnteate alsalealsatsatealsaten!ontcntcntsatontsufwntontantcntacntes 
eli wi wi wi wi wi wiwi Wi wi Wi wiws wi Wai esi eel eww el ee ee ed ee ee ee eee eee ee ee ee ee ee ed ed 


* CALL THE TBMOD SERVICE TO * 
* UPDATE OR ADD A ROW OF VARIABLES TO THE TABLE TELBOOK * 


feataafratontantes efantontanta nla atsatsateatenteate nts ctontentsatantsntontactsntantontentsntontsntsntantenteatontentantents slentantantentantwalententsntsctententsatentactasate ale toute nt 
WETS GETS ICTS TC TS EN ESET TOES ECTS TS ECTS TS ES INES TEES EC TTT ES ES ESTEE ECTS TE TE TE TET TCT ELT TE TEETER EEEEEREEEEE TER 


CALL 'ISPLINK' USING TBMOD TELBOOK 
IF RETURN-CODE = 0 

MOVE 'TELBO14' TO ZERRMSG 
ELSE 

MOVE 'TELB013' TO ZERRMSG. 
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BLANK~-SCREEN. 
WIT OTE TEN TEN TE BIE TENTS TE TET TE TE TE TS TEEN TS EO TS ECTS ECTS ENTS TS ICTS STS TS STS TEES TESTS TEATS NTT ETNA R TCR 
CALL THE TBVCLEAR SERVICE TO * 
= SET THE CURRENT VALUES OF THE TABLE VARIABLES TO NULL. * 
WHEN TPANEL1 IS REDISPLAYED THE TABLE VARIABLE VALUES ae 
DISPLAYED ON THE SCREEN WILL BE NULL. = 


whe alenlantenteclsutsntes ste mloalsntes aleales alanlealealselsntputsntoclanlealsatsaats nloats ste aloale als ctontes aloalealealaclsalsctsatectoalsntsclsntantsateclentsntentsate alantentenlentsnteatsntleatantsuls 
FEIT AN AV AN EU EL OL GOTT ED ED OAT EL ELEN EO EC ECAC ES ENGL EL GLAU EV ATEN GU ED CU EL EVEL EC AL EV EV EC ECE EV EV EVEN TU AT EV EVE, EVEL EV EV EDEN EDEN EVEN ON ED GN 4S 


CALL 'ISPLINK' USING TBVCLEAR TELBOOK. 
SCAN-TABLE. 


CALL 'ISPLINK' USING TBTOP TELBOOK 


slontenfeclocfsclacleclecleclenleclenloafacleclesteclealsalenlacleelecleclectentsalscleetecteetenleclectoctart ale sloateulacteclectoatectactsnlenlactscloalectocteclsatectsctecteats af whe ule atentes ale 
FE FE EDEL Ey EDL GL ED ELEN EY GY OO OD LED GLEN EL EDI ED OVE EV ED EVEL ED COED EV EV ED GOOD ODED ED CLEVE EVEN EL ED FLED EEL GED EDEL ODED ED OLED OLED ERED OD 4D 


* CALL THE TBSARG SERVICE TO * 
* ESTABLISH A SEARCH ARGUMENT FOR SCANNING THE TABLE TELBOOK * 


al, steals wloale ate utente ste atanlente alealrntesntesatsntscisntenlealeatsnleatsnlsalantoatsate ule ale ntealontasrtealsnteatsatsatealontsntsatesutsleatentantontsales ate alenteatontententententaatouts ste ale sk 
GRD ER AD AL ED GD GD GE GD AR EE Gd 4d FS AD ED GE GD ED ATED CR GL GD GD AD ED GD EL GN GD AD GT GR GD IR GD GD ED AR Gd FR OD ED CD GL Ad CL GD ED AR AL Od 4D GR ER AD CL ED OD ED CD OD ON 4 


CALL 'ISPLINK' USING TBSARG  TELBOOK 


BREE RARER ERE REEEREREREREEEBREREBRE BEEERERERERBEREREREBEEEBREERRERE 
7 CALL THE TBSCAN SERVICE TO a 
= SEARCH THE TABLE TELBOOK FOR A ROW WITH VALUES THAT * 


* MATCH THE ARGUMENT LIST * 


mle nlenleaatontes ale wlealenlealentsntenlsatoats aleatea!sntoalenlsateats ale nlsnteatantantents se mloalaale ale nlonls afonteatenlantonlsnlentanlentsnlanlentsatantes sfests ate ataats ale ate ste mloatentenleato ste 
GU AUAR SEAL AC ONIN AUER UNAS AN EUAN UAC EC ANON ECAC EC ARAN EVER ACER EC MOEN ER ICEL AN GS ER AU AN GU ELEC AD ED OUTLIER ER EUAN IVER TEAC IN ACEC ED AUER IU EN EOS 


CALL 'ISPLINK' USING TBSCAN  TELBOOK. 
RESCAN-TABLE. 


CALL 'ISPLINK' USING TBSCAN  TELBOOK 
IF RETURN-CODE = 8 


whe ale alec ales ale alecloatentes uta ale ula alantaata ale ale ale aloutac nla ate ale alo alacant wales nloate ular utcntecntcntac ates alas eles eles mls alas mlisetec nts eles ales wlan eles lomo atc mls mle mtautontan ale ntomtcnloutontesntontaalonto uf 
wi wi ei ei wiwi wi wi Wi viwi wi wi wiwiwi WiiWii wi Wi Sie iwi iw wie iwi Wiel el wi el wei wl il el le he i i ee el ile el elie 


* CALL THE TBVCLEAR SERVICE TO * 
* CLEAR FROM THE SCREEN THE VARIABLES DISPLAYED FROM THE * 
* TABLE TELBOOK IF ANOTHER ROW WITH THE SAME SEARCH * 
oo ARGUMENT IS NOT FOUND. * 


wl clantoateates alealealoalsalanlantsntsctonte alontentsatontsaloatesntoutantantontasntentontonteatantsatentsateutes alacleelsaloatontsataatsnlantoutsetsntantonte atouls ale aleatantsatealontsntentactealeuta 
ER AD AE AS OD GD EE AD AE AD GD GT ER AE 4D GD GR GR GR Gd IE AE DER GR AE GE GD AD GRIER GLEE IR ED ER GD ED ad Gd EL AR Gd Ah Od Gd IL aD ALIN EL RGR CR ED GR GDR AV ER Ed Ed Cd at 


CALL 'ISPLINK' USING TBVCLEAR TELBOOK. 


SEARCH-TABLE. 


Tes nt ao on fas onl, Vee en ao en! ae tn ben on ae on les ntes enter mates wl, Tes on tan on fae un, Vase ence tn an malas on Yas on be enlace en! am tn Yam on tar on Yan onVan on am tlc mf an on! a a ae ee Pa Pr, See oe ee Ps re ee Se Pe ee Pe Poe See PE Pe Da 
tedededevevededededededededtedededededededetedetedetesedetede sek seh See RETA EA AEA RERERER RARER RAREER 


* CALL THE TBEXIST SERVICE TO TEST FOR THE EXISTENCE OF A ROW * 
* IN THE TABLE WITH THE KEY VARIABLE SPECIFIED ON THE SCREEN. * 


wlan ale alen als alantontculsntentaalantoateatasatantsatsaleatsnta alaalealantantentonltantontaclontsntselantontantentanlanlantontantaalontentsatantontantontsclantantaata ate alsatententoate nlontantentants se 
eee eee ee ee eee ee eee el) eel iwi eli i li eel eee ie ei ie ei ei ei ee eel i a) 


CALL 'ISPLINK' USING TBEXIST TELBOOK 
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C 


IF RETURN-CODE = 0 


PRR EEREREREREEREREREERERRBEREREERBERRERERBERBEEREEREEERERBEEBEBEBRER 
% IF THE ROW WAS FOUND, CALL ae 
* THE TBGET SERVICE TO FETCH THE ROW FROM THE TABLE. z= 
= OTHERWISE THE VALUES OF THE VARIABLES WILL BE UNCHANGED. zy 


enkacs al ae mal ce mal ae abies eatin ence ala enlace tf aman en fas enban ma ban taf mabe eal a malice eal ae en a alae eafae mele elie mbar ats manele mba entice alice mln mcs wfc eles mab alien fa fa eles aw elena hee ls lee wale fae mba malian lee malian alice ben elias la bias fae hs mle els lee la alice la wala 
RARER AR ARLE AL AR AN RAR GR ES EN ER EU AR EN OR AR ER AL ER EN AR AR ER ED AR ARAN EN ER GR ER ER ER ER GR ER GRAN ER EL ELEN IR EL EVEL IN EL ELIT ETL ED EL ED EL EV EDV CD EV ED ON 


CALL 'ISPLINK' USING TBGET TELBOOK. 


QUERY-TABLE. 


Me eal ele enh ea haes lie las lice alas malice abies lace ence malian en Pian malin eal ce cn face eal ae eaten nficn ent co eal an enlae male els eles mler eaten mle ate mle mlarentas alas mle eles mle mh mln mles mlm ntaom tastes mls alo ntc mls alasntc nts mateo ntanlontsaloata mls mlomtacnlasntsnloute 
ARGV AVAL AV ALAR ILL AL EL ER EVEL IL AU GD LAL AL AT ARGUED GEAR AE EL GL ADL IEAV EL ED IL GL ER AE IT EL GRIEG EL ILIV IV EL GL EL ED GR AVAL GD EH EV VV AB Gd Gd dev sd ov 


* CALL THE TBQUERY SERVICE TO OBTAIN FROM THE TABLE TELBOOK * 
x KEY VARIABLE NAME (S) # 
* NON-KEY VARIABLE NAMES * 
* NUMBER OF ROWS v 


lee ale alent ala ntanlcnlenlc mtoutas ula ntentanlanta afante alone mts mtas ates utes ale alsnta mle nla mlaultas nla ales ale mtn! as mle afaates al omtes mle ales alas a larnln alas ates afer alec mbes ale eles mle ales nfantentontes ales ntoultanloutonta ute 
GEAR ALAR AR AR ER AR AE ER RGR GEAR ARR AR AR AR AER ER ARAN NAN ERIN ER ARAN AE IR ER ARR IR INGE AR EL IR IL IRIN EL IR EL AL INL EL AL ITER IL EDL GER AL IR ED OR IE AR AD 


CALL 'ISPLINK' USING TBQUERY  TELBOOK QKEYS QNAMES QROWS 


Pie beri her ear pe ber eek Cor or nik har or oy bar a bo nie a oe oe hoe ver oe oor oie ae her cer pe oar ae bare oe i oer nae ioe orci Yor ie tortor bor ortae cere priori orterirts ror barker ts 
“ CALL THE VCOPY SERVICE TO 
* OBTAIN A COPY OF THE DIALOG VARIABLE QROWS * 


Pie elles leon lics las lee elo eaten alee alco lao entice Pao eal ce lan mle mle eaten eabcn mln entice malice Sen alan ce alan eal abies Pao tics ela eal in lice ales bes leo nls mle alee mle elastin lao tas mle mle alee alates mle mtr eles mln mle ln mle mle aber ales alee mle nls ml afar mts alan 
FR EV EL AV EVEL GS EVES EVES ED EL EV FD EL EL EL ER ES PREV ALE IL AD EL GEIL EL ED ES IV EL ERIN EL ED AL GL ER GL EL GEL EVEL ITIL EVEL EVIL EV IV EL ED PV EVEL EV EV EV ED ED CD 4h 


CALL 'ISPLINK' USING VCOPY QROWS L8& QROWSDATA MOOV 
MOVE QROWSDATA TO QROWSDATAZ 


he ok ke be Garo Ok bi or ak or OR Gk re oe oer ok Oi ok Ok ko her cee ok oi ok oie or ok oi ok re ok ore oi i ope ae oe ok oie fae oie oe one ewe bane ak eV tok foie oe bo Doe | oe foie bak Loge hoe 
* CALL THE VREPLACE SERVICE TO * 
*" UPDATE THE DIALOG VARIABLE QROWS * 


aloalontonte alon'antententantsafentsntententantontes atentanltsatantsntentsafosntouls atantantontsntonts atoatsntantontsntontsatontsatentontasntontes afontsntontsalententasntontsntentsntsatoantentantsntantants 
PRL ALL AD ER AL AER AL IR EL AR EE ALL AR AR AR ARAL AR GEAR AE RAR ER ER AR IL IN AR ER AR AR AN AR AE ER GR AR AR AR ARR IR ER ER ER AL AR ER RAD ER GL AL AR eR ER aR AR aR ae ad 


t f 
CALL ISPLINK USING VREPLACE QROWS L8 QROWSDATAZ 
alee male ales ten mates fae alae las entice malas mabe tes ales males tas alas mates mba ales mbes afar eles elas eles mnfes mle malas enfants enfants mle eats mls males males elem enter mates eater males alan mbes eben mls mfr enlcs mle ates mle mates mle alas ales mtoelas nto mle ate ates ntsnlontsmtants nts 
PREV IV ARID AL AT AL ID AE ALAR GL GR EE AL GD ILE ID IN AL ID AL ID AL GL IR GR EN AL GR ED ID IL GL GE IE ID AL ATID GD IE GL ID EE ARAL ID GT GD IL GL OD SE Ad GE GRID OL GD EE Gd Od Cd 


* CALL THE DISPLAY SERVICE TO DISPLAY THE PANEL TPANEL3 * 


ele ale alates mle ale ales als ale atontntaatecntontas ater nta alata mts nts ntantantsntoutasntaontanltcntontantes alo nlontontantcatsntantonte nlanlontantsatontamtontenteatantsnlwatemtauts aleatsatsalcnts mtn aloatantontoo 
AR ER IV AR AU EE AU ARID AE AD EE GED GLAD GD IVER IDEN AE GLAD AV EL AL ED ED GL IE ED GL AD AL GV GL AEG EL GL IS AE GR GRID ILD EVEL IL IE EV GL IT EL AD CRED ER AL GD FE GD ED OD 


CALL 'ISPLINK' USING DISPLAYE TPANEL3. 


PREPARE-REPORT. 


wlate aleate nfeclsntentonlentsatsnlts atanteatentc nlontas nls ntaatsnts atoate ate ale tants ntoutsatsntantsntontsntesalententsntsatentsuntesntsntentontasctonts atante ute alsatantonteatsuts ate mts utontsatoatountoute 
AVAL EVEL AD AL AL AL ER GD AN ED EVAL LED ER ARERR AR AR OV AR AR ET ER EL GL GR ER ED GT AR AR AR IR EL AR AL ARAL ERAT GN AN EE ER AN ER AN ER OR Ae AN EN OR OR ER OR OR AR ON ER OR Od 


* CALL THE FTOPEN SERVICE TO BEGIN FILE TAILORING * 


wlontentontantontsntsatentsntentsatontentantonlantantantantsalsate nfoatesntaontentontsalentsats atententsatontentantomtsntes nts atcntacntontacntontomtsntc ates nlacntacmisatesntaats nts mtonte mloatonts utente ntsats 
ard Ye er ard rar ie ie er er i er de ed ed ee dd ed ee eee ee ee eee) ek eee eee 


CALL 'ISPLINK' USING FTOPEN 


Example 2. Telephone Book Application 


71 


* CALL THE FTINCL SERVICE TO # 
* DO FILE TAILORING USING THE FILE TAILORING SKELETON TELBOOK * 


ate alae lw alee bee alo abe at alc alee tes mls alae mloetas alao elects wlee els alarm tes ale alee lomtas mle alae mbes alan las whee alae enbeo malice eben ban alice fae tae hee nla ealca en bee ealicn matce mnbce en! an enlace eal ae ealao fen whe lias mbes alae lao mls eras wlan ales mts ato nto alee 
FV EVIL ILIV GL EVID ED IVER GV ED AE GL ER GV AL IL EV IV GT AL GL IV EL IL ELL GL GR EVAL IS AL ID NAL GR AD AL ANGLED IN EL GRIN GDL ANAL ET AN AL RR AR RR eR eR CR aN ee 8 


CALL 'ISPLINK' USING FTINCL  TELBOOK 


* CALL THE FTCLOSE SERVICE TO ¥e 
* TERMINATE FILE TAILORING AND STORE THE OUTPUT AS MEMBER * 
ve TELOUT * 
CALL 'ISPLINK' USING FTCLOSE TELOUT 
MOVE 'TELBO22' TO ZERRMSG. 


BROWSE-REPORT 

e 

hes Pe law alae whee lao las fret alco ale ln alco bee al ao cals alg eatin abn lee alate mtetes mle lee Pew elie alae Pan elena lee male ml co tal ce lan alae eben ben fico mal alco Paw alco ling ela alco mbar erlce len ental ale lan bee elan malin taht mw elcome be bee mtr mlao mts 
ER AV ACAD AL IL AL IV ED IV ILIV EV IV GV ILIV ED IV ED IVER ITED IVIL IV GD EVER AVIV EV GIVEN IV IVIL IDEN IV EDEL ILIV IV IVE PU IV IV IVES ELDER ILIV EV INEV IV EV EV IV GD ED 


* CALL THE BROWSE SERVICE TO ve 
* BROWSE TELOUT IN THE FILE TAILORING OUTPUT DATASET. * 


# FOR VM, FTOUTPUT MUST CONTAIN THE FILEID OF THE FILE # 
¥ TAILORING OUTPUT MACLIB. THE MEMBER NAME IS SPECIFIED * 
We AS A SEPARATE PARAMETER. EXAMPLE: ‘CALL 'ISPLINK' USING # 
# BROWSE FTOUTPUT TELOUT.'. THIS FUNCTION IS AVAILABLE * 
# ONLY IF THE ISPF/PROGRAM DEVELOPMENT FACILITY PROGRAM * 
# PRODUCT IS INSTALLED. # 


ele ls te le lola ele ate le ale ale ate mtont a mlasatentsntonlonlontoniontcmtanlontonte alasnta mls mts mle ato nlontontomtcmtc mle ntontes nian! as atoatas mtantes ata mteomtes ates ates ato alec mle mateo mle mls mtas ales mates ato alae alam len mle 
PR ER IV GV GL AV GD EL IV GV IV GV IVAN IDV IVIL IVIL ID AV AGL AL IVEY IVIL IV IN ED IV GV IVIL GIVING IVIL GT ILIV GL IV EV ILIV ED GDL IV GL GL AL GD IV IV EL EV ED GD EDAD IT GD ED 


CALL ‘ISPLINK' USING BROWSE FTOUTPUT. 


EDIT-REPORT. 

we CALL THE EDIT SERVICE TO * 
¥ EDIT TELOUT IN THE FILE TAILORING OUTPUT DATASET. * 
# FOR VM, FTOUTPUT MUST CONTAIN THE FILEID OF THE FILE * 
* TAILORING OUTPUT MACLIB. THE MEMBER NAME IS SPECIFIED * 
¥ AS A SEPARATE PARAMETER. EXAMPLE: ‘CALL 'ISPLINK' USING * 
* EDIT FTOUTPUT TELOUT.'. THIS FUNCTION IS AVAILABLE ONLY * 
# IF THE ISPF/PROGRAM DEVELOPMENT FACILITY PROGRAM PRODUCT ¥ 
# IS INSTALLED. # 


ala aba ce elles mabe mbes mbeo eaten malin wa bae hae mbes few ln be mln bee eal elo mln stecleclonlentontectantactantonlealanteclsntentoutentenlenls moles alee slerte ste stoste slecteatententonte alent ntactentectoateatantoats stostecte 
PAWEL eee eee eee ee ee ee eee ee ee ee ee ee eee eee ee 


a 
row iy 


-= 


CALL ‘'ISPLINK' USING EDIT FTOUTPUT. 


DESTROY-REPORT. 
Setodedetedstedede te RTT RERITR ERASER REAR AEATRAEREREERTREREREREREEREERERERRR RIG 
* CALL THE FTERASE SERVICE TO * 
¥ DELETE THE FILE TAILORING OUTPUT TELOUT * 
PRECIO Daa DE DIORA LEC OR aor oko ro Or one oS or ar Gi oink Ook Gidok ice be rake back ba ica Deroy Dick tr oe oe ber ee oe eo A 
CALL 'ISPLINK' USING FTERASE TELOUT 
MOVE 'TELBO23' TO ZERRMSG. 
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C REFRESH-TABLE. 
WTR Tea eee RTE EREREEREER EBERT RRERREERERREREERERERRRERRERERBRRRE 
= CALL THE TBEND SERVICE TO e 
* CLOSE THE TABLE TELBOOK WITHOUT SAVING IT ON DISK = 


le whe ae ale ale le wakes afas mlonte nts als nlontcnlcatontc se ales alonlonl, ale eafee ealics mban mbes bcs fas enlace mabe mln entice mlco Feo mle las mle mle tics lo alae mbes mbes mls mls mbes mle elec mle alc mts mlomte nlonta steele mals ate ales alent ale ates 
TEV ELEC ATER AL EN ELEN GL ED EVEL ENED EL ANGLES ER OR EC ELEVEN ES ECE EV ERED OL EVEL ICED FLED OLIV INET ELIS EV ED GL INET ET ED ED EVE OLED EDGED EOD ED GO OD OD 


CALL 'ISPLINK' USING TBEND TELBOOK 
CALL 'ISPLINK' USING TBOPEN  TELBOOK 
CALL 'ISPLINK' USING TBSKIP TELBOOK. 
MOVE 'TELBO21' TO ZERRMSG. 


REMOVE-TABLE. 


CALL 'ISPLINK' USING TBCLOSE TELBOOK 


lacs ea bes enlace bes en¥ias anban eabes fas alae ealco malas aban entan ealcs enlcs aban alice ealat en lics malas ents malice mbes ea ae fae mabe mF as ea bas allen malo tabs maar enlace mbes ales males m8 ao eaes fics malice en¥cn bis macs en hae males on Pan exten mls ebce males en 8.cs moan mabe on bas tn hae mabe malice al er bee mPa mals mbes axles mbes mabe mls 
CEVA GC ED EVER EVEN EC EC EL EDEN OUTS EC ELEN GU IN ED ICED OC EC IDOL ED EDEL ITED LALIT EL ECE ED FLED ER ECE ICED PCE EV OC IV IS EC ED CC EVES ILE EN CEL OT ED ED 


a CALL THE TBERASE SERVICE TO ye 
* DELETE THE TABLE TELBOOK FROM THE TABLE OUTPUT LIBRARY * 


nla aloatsatontantentsnlontsaloutaalestas ulententsute mts fe cle clonte niente nleclactacloate alealesntoale alsutsntentsnte nlenle nts nts nlsatenlts alontsnloatenlaciontasntenlanisntes fe nlouteeleals sfonloctoatonts 
CUTAN ES ER ALES EL EN IN EU ERAN EDEL OREO EN ES EC ET EN EC EL TU GL EE IVER EDIE ED ALAR EVEN IVES TREN IC EL INES EU EU EVEN IL EN ICTR ET TOIT EVER EVEN GC UU EN EN ARON 


CALL 'ISPLINK' USING TBERASE TELBOOK 
CALL 'ISPLINK' USING TBCREATE TELBOOK TABKEY TABVARS. 
MOVE 'TELBO20' TO ZERRMSG. 


SAVE-TABLE 
e 
wales las bes als bes ahs ols abn eto ate mto mle nl onls olanlsaloalenlantontasalasntsstontentaontes ais ale ale ele ale ols ale clontsntoalsalantoalsntasatenlantontantonts ats OP ey ale eles ates mbes ales mbes als nls foals 
; FE PU CUTE AN EU GU ENEN GL OD ENGL TD GL EU OD ED IL EG OD OL EVEN EN ELEN ITED CEL ENTLY IL ED ELINOR IL ED IL GD EDEL EVEL OD ITEN IV EVIL IV EC IVETE EVEL ELECT GL ED GD ED 


* CALL THE TBSAVE SERVICE TO * 
x WRITE THE TABLE TELBOOK FROM VIRTUAL STORAGE * 
* TO THE TABLE OUTPUT LIBRARY * 


Naa oben thes afeo ml faa Meats mbes ate ules alsnlaatontentsalantonts nlentantentententon! tea hes ates alae alo nts mle alates tants ate atentsntantenteatertsntentontentantentsntectentaatantect, fra ectee ata ates 
RRR RERETRREREREREEEERBRERRERERERERREREEERERERERERRERERERERREREREEERRERERS 


CALL 'ISPLINK' USING TBSAVE  TELBOOK 
MOVE 'TELBO19' TO ZERRMSG. 


FORTRAN IMPLEMENTATION 

In addition to the components listed under "Dialog Components Applicable to All 
Implementations,’ the following components are required for the FORTRAN 
implementation of the dialog: 

° Combined selection and data entry panel FPANEL1 


° Function TELEBOOK 


° Function TELESRVC 
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FORTRAN - COMBINED SELECTION AND DATA ENTRY PANEL FPANEL1 


Definition and display of combined selection and data entry panel FPANEL1, are shown 
below. 


Panel Definition 


)ATTR 
_ TYPE(INPUT) INTENS (LOW) JUST(LEFT) PAD(' ')  CAPS(ON) 
@ TYPEC(INPUT) INTENS(HIGH) JUST(LEFT) PAD(' ')  CAPS(ON) 
) BODY 
0 ga a i Telephone Book Application  ----rrrrrr rrr rrr rrr ener nen nn 


+SELECT AN OPTION: %===>@ZCMD 
% 
% At+- Add new entry 


% C+- Change existing entry %F+- Refresh the table, from disk 

% D+- Delete old entry %K+- Remove the table, from disk 

% Gt- Get last entry *Lt+- List the table 

% M+t- Add/Change entry %Q+- Query the table 

% &+- Blank screen entry %5+- Scan the table, non unique 

% P+- Prepare report %R+- Rescan the table, continue scan 
% Bt+- Browse report %T+- Search on last name, unique key 
% E+- Edit report %V+- Save the table, on disk 


% Y+- Destroy report 


+Current values / enter search values: 


% 

+ FIRST NAME ===> TFNAM + 
+ LAST NAME ===> _TLNAM + 
+ LOCATION ===> TLOC + 
+ PHONE NUM ===> TNUM ~~ + 

+ PHONE COLOR===> TCOLOR + 
+ PHONE TYPE ===> TTYPE + 
)INIT 


.CURSOR = ZCMD 
&ZCMD = &OTELOPT 
&VARL = '(TNUM TLNAM TFNAM TLOC TTYPE TCOLOR) ' 


IF(&ZERRMSG -= ' ') 
.MSG = &ZERRMSG 
&ZERRMSG = | ' 

) PROC 
SOPTSV = TRANS( &ZCMD 
be List 
A,'ADD ' 
C,'CHAN' 
D, 'DELE' 
G,'GETL' 
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M, ‘MODI ' 
Z,'BLAN' 
S,'SCAN' 
R, 'RESC' 
T, 'SEAR' 
Q, 'QUER' 
P,'PREP' 
B, 'BROW' 
E, EDIT’ 
Y,'DEST' 
F,'REFR' 
K, 'REMO' 
V, SAVE') 


&ZSEL = TRANS( &ZCMD 
L, 'PGM(TELESRVC) ' 
A, 'PGM(TELESRVC) ' 
C,'PGMC(TELESRVC) ' 
D, 'PGM(TELESRVC) ' 
G, 'PGM(TELESRVC) ' 
M, 'PGM(TELESRVC) ' 
Z, 'PGMC(TELESRVC) ' 
S,'PGM(TELESRVC) ' 
R, 'PGM(TELESRVC) ' 
T, 'PGM(TELESRVC) ' 
Q, 'PGM(TELESRVC)' 
P, 'PGM(TELESRVC) ' 
B, 'PGM(TELESRVC) ' 
E, 'PGM(TELESRVC) ' 
Y, 'PGMC(TELESRVC) ' 
F, 'PGM(TELESRVC) ' 
K, 'PGM(TELESRVC) ' 
V, PGM(TELESRVC) ’ 
stg! ) 
&OSEL = &ZSEL 
IF(&ZCMD = S) 

&ZCMD = R 
&OTELOPT = &ZCMD 


IF(&ZCMD 7= R) 
VER(&TNUM, PICT, 'NNN-NNNN' ) 


) END 
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Panel Display 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


SE 


Bece cane ieiste a wie eee TELEPHONE BOOK APPLICATION 


LECT AN OPTION: ===> M_ 
A - Add new entry 

C - Change existing entry 
D - Delete old entry 

G - Get last entry 

M - Add/Change entry 

Z - Blank screen entry 
P - Prepare report 

B - Browse report 

E - Edit report 

Y - Destroy report 


- Remove the table, from disk 
- List the table 

Query the table 

- Scan the table, non unique 


SHANOWA 
' 


- Save the table, on disk 


Current values / enter search values: 


FIRST NAME ===> LARRY 


LAST NAME ===> MILNS 
LOCATION ===> STUDY 
PHONE NUM ===> 385-2222 


PHONE COLOR===> WHITE 
PHONE TYPE ===> DESK DIAL 


- Refresh the table, from disk 


- Rescan the table, continue scan 
- Search on last name, unique key 


SS ee ee ee ee ee ee 


FORTRAN - FUNCTION TELEBOOK 


qa 


AQAIgIQIANARANANAARQA 


gaara aanran 
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THE OBJECTIVE OF THE CODING TECHNIQUE OF THIS APPLICATION IS 
TO ILLUSTRATE ISPF SERVICES 


THE APPLICATION CONSISTS OF 
THIS MAIN PROGRAM (FORTRAN) 


1 
3 
16 
1 


SUB PROGRAM (FORTRAN) 
PANELS 

MESSAGES 

FILE TAILORING SKELETON 


THE APPLICATION PROVIDES THE 
FROM PANEL FPANEL1 TO ACCESS A TELEPHONE BOOK 


DUNE QU ONY 


ADD NEW ENTRY 

CHANGE EXISTING ENTRY 
DELETE OLD ENTRY 

GET LAST ENTRY 
ADD/CHANGE ENTRY 
BLANK SCREEN ENTRY 
PREPARE REPORT 

BROWSE REPORT 


TELEBOOK 

TELESRVC 

FPANEL1 TPANEL2 TPANEL3 
TELBO10 THRU TELBO25 
TELBOOK 


FOLLOWING FUNCTIONS 


HANOUA 


REFRESH THE TABLE, FROM DISK 
REMOVE THE TABLE, FROM DISK 
LIST THE TABLE 

QUERY THE TABLE 

SCAN THE TABLE, NON UNIQUE 
RESCAN THE TABLE, CONTINUE SCAN 
SEARCH ON LAST NAME, UNIQUE KEY 
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: C E EDIT REPORT V SAVE THE TABLE, ON DISK 
C Y DESTROY REPORT 


INTEGER TABKEY(2) 


DATA TABKEY /'(TLN', ‘AM) '/ 
INTEGER TABVRS(8) 
. DATA TABVRS /'(TFN', 'AM T', ‘LOC ', 'TNUM', 
& ' TCO"; “LOR *. “TTYP’, "E) ~*/ 
INTEGER VPLIST(9) 
- DATA VPLIST /'(TFN', 'AM T', 'LNAM', ' TLO', 'C TN', 
& 'UM T', 'COLO', 'R TT', 'YPE)'/ 


CALL THE CONTROL SERVICE TO 

SET THE ERROR PROCESSING MODE FOR THIS PROGRAM TO 
TERMINATE ONLY FOR ANY ERROR THAT HAS A RETURN CODE OF 
12 OR HIGHER 


qgaqacn 


LASTCC = ISPLNK (‘CONTROL ', ‘ERRORS ', ‘CANCEL ') 


: C CALL THE TBOPEN SERVICE TO 
( | C OPEN THE TABLE, TELBOOK IN WRITE MODE 


LASTCC = ISPLNK ('TBOPEN ', 'TELBOOK ', 'WRITE ') 
IF (LASTCC .EQ. 8) GO TO 1001 
GO TO 1002 


C CALL THE TBCREATE SERVICE TO CREATE THE TABLE TELBOOK IF 
IT DID NOT EXIST. THE KEY VARIABLE IS SPECIFIED IN TABKEY 
C AND THE NON-KEY VARIABLES ARE SPECIFIED IN TABVARS. 


>) 


1001 LASTCC = ISPLNK ('TBCREATE', 'TELBOOK ', TABKEY, TABVRS) 
1002 CONTINUE 


CALL THE TBSKIP SERVICE TO MOVE THE CURRENT ROW POINTER 

(CRP) FORWARD ONE POSITION (DEFAULT). THE VARIABLE VALUES 

IN THE FIRST ROW WILL BE READ. IF THE TABLE WAS JUST CREATED, 
THE VARIABLE VALUES WILL REMAIN NULL. 


qaan 


LASTCC = ISPLNK ('TBSKIP ', 'TELBOOK ') 


SET THE TABLE VARIABLES IN THE SHARED VARIABLE POOL TO THE 
VALUES IN THE 1ST TABLE ROW. THESE VALUES WILL BE USED 

TO INITIALIZE THE VARIABLES IN SELECT PANEL FPANEL1 ON 

THE SCREEN. 


qaiuoqan 


LASTCC = ISPLNK ('VPUT ', VPLIST, 'SHARED ') 
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C CALL THE SELECT SERVICE TO CONTINUE TO ) 
DISPLAY PANEL FPANEL1 AND CONTROL THE INVOCATION OF 
C THE SUB PROGRAM TELESV UNTIL FPANEL1 IS TERMINATED 


QQ 


LASTCC = ISPLNK (‘SELECT ‘, 15, '‘PANEL(FPANEL1) ') 


C CALL THE TBCLOSE SERVICE TO 
C CLOSE THE TABLE, TELBOOK 


LASTCC = ISPLNK ('TBCLOSE ', 'TELBOOK ') 


C CALL THE LOG SERVICE TO 
C PUT THE MESSAGE TELBO24 ON THE ISPF LOG FILE 


LASTCC = ISPLNK (‘LOG ', 'TELBO24 ') 

C CALL THE SETMSG SERVICE TO * 

C PUT THE MESSAGE TELBO24 ON THE NEXT SCREEN DISPLAYED * 
LASTCC = ISPLNK ('SETMSG ‘, 'TELBO24 ') 


C CALL THE VRESET SERVICE TO ve 
C REMOVE THE ISPF ADDRESSABILITY OF ANY VDEFINED VARIABLES * 


LASTCC = ISPLNK ('VRESET ') 
STOP 
END 


FORTRAN - FUNCTION TELESRVC 


C THIS SUBPROGRAM IS INVOKED FROM PANEL FPANEL1 AND DISPLAYED ‘ 
C BY THE MAIN PROGRAM TELEBOOK USING THE SELECT SERVICE 


INTEGER TABKEY(2) 


DATA TABKEY /'(TLN', 'AM) '/ 
INTEGER TABVRS(8) 
DATA TABVRS /'(TFN', 'AM T', ‘LOC ', 'TNUM', ' TCO’, 
& "LOR “sy. “DEVE %- TES 7 / 
INTEGER ZERMSG(2) 
DATA ZERMSG /'TELB', ‘025 '/ 
INTEGER LIST 
DATA LIST /'LIST'/ 
INTEGER ADD 
DATA ADD /'ADD '/ 
INTEGER CHANGE 
DATA CHANGE /'CHAN' / ’ 
INTEGER DELETE - 
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DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 


INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 
DATA 
INTEGER 


DELETE 
GETLST 
GETLST 
MODIFY 
MODIFY 
BLANK 
BLANK 
SCAN 
SCAN 
RESCAN 
RESCAN 
SEARCH 
SEARCH 
QUERY 
QUERY 
PREPRP 
PREPRP 
BROWSE 
BROWSE 
EDIT 
EDIT 
DESTRY 
DESTRY 
REFRSH 
REFRSH 
REMOVE 
REMOVE 
SAVE 
SAVE 


M010 
M010 
MO11 
MO11 
M012 
MO12 
M013 
M013 
M014 
M014 
MO15 
MO15 
M016 
M016 
MO17 
MO17 
M018 
M018 
M019 
M019 
M020 
M020 
MO21 


/‘DELE' / 
/'GETL'/ 
/'MODI'/ 
/'BLAN' / 
/'SCAN'/ 
/'RESC'/ 
/'SEAR' / 
/' QUER' / 
/'PREP' / 
/ ‘BROW’ / 
/‘EDIT'/ 
/'DEST' / 
/'REFR' / 
/'REMO' / 


/"SAVE' / 


/'010 ' 


folly * 


/ 
/ 
/'012 '/ 
7*013-"/ 
/'014 '/ 
pO day "4 
/'016 ' 
/'017 ' 


/ 
/ 
/'018 '/ 
/'019 '/ 

/ 


/'020 ' 
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DATA MO21 /'021 '/ 
INTEGER M022 : 
DATA M022 /'022 '/ 


INTEGER M023 
DATA M023. /'023 '/ 


INTEGER QDATA(2) 
INTEGER SERVN 


INTEGER VRLIST(9) ; 


C COPY THE VARIABLES OPTSV (CONTAINING THE FUNCTION REQUESTED 
C BY THE USER ON PANEL FPANEL1) AND VARL (CONTAINING THE 
C LIST OF THE NAMES OF THE TABLE VARIABLES) TO THE PROGRAM 
C VARIABLES SERVN AND VRLIST DEFINED IN THIS PROGRAM. 
LASTCC = ISPLNK ('VCOPY ', 'OPTSV ', 4, SERVN, 'MOVE ") 
LASTCC = ISPLNK ('VCOPY ', 'VARL ', 36, VRLIST, 'MOVE a 
C CALL THE VDEFINE SERVICE TO 
C GIVE ISPF ADDRESSABILITY TO ZERMSG 
C AS DEFINED WITHIN THIS PROGRAM 
C AS A CHARACTER FIELD WITH A LENGTH OF 8 
LASTCC = ISPLNK ('VDEFINE ', 'ZERRMSG ', ZERMSG, 'CHAR ', 8) 
C CALL THE VGET SERVICE TO J 
C COPY THE VALUES LISTED IN VRLIST 
C FROM THE SHARED VARIABLE POOL 
C TO THIS PROGRAMS SET OF FUNCTION VARIABLES 
LASTCC = ISPLNK ('VGET ', VRLIST, ‘SHARED ') 
C PERFORM SERVICE-ROUTINES AT 1002 
GOTO 1002 
C AND ALWAYS RETURN TO 1001 


1001 CONTINUE 


CALL THE VPUT SERVICE TO 

COPY THE VALUES LISTED IN VRLIST 

FROM THIS PROGRAMS SET OF FUNCTION VARIABLES 
TO THE SHARED VARIABLE POOL 


aQaan 


LASTCC 
LASTCC 


ISPLNK ('VPUT "| VRLIST, 'SHARED ') 
ISPLNK ('VPUT ', 'ZERRMSG ', ‘SHARED ') 


CALL THE VDELETE SERVICE TO 
REMOVE ISPF ADDRESSABILITY TO ZERMSG 
AS PREVIOUSLY VDEFINED WITHIN THIS PROGRAM 


qon 


LASTCC = ISPLNK ('VDELETE ', 'ZERRMSG ') 


STOP ) 
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C SERVICE-ROUTINES. (ALWAYS RETURN TO 1001) 


1002 CONTINUE 


(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 
(SERVN . 


. LIST) GO TO 1010 

. ADD ) GO TO 1020 

. CHANGE) GO TO 1030 
. DELETE) GO TO 1040 
. GETLST) GO TO 1050 
. MODIFY) GO TO 1060 
. BLANK) GO TO 1070 
. SCAN) GO TO 1080 

. RESCAN) GO TO 1090 
. SEARCH) GO TO 1100 
. QUERY) GO TO 1110 
. PREPRP) GO TO 1120 
. BROWSE) GO TO 1130 
. EDIT) GO TO 1140 

. DESTRY) GO TO 1150 
. REFRSH) GO TO 1160 
. REMOVE) GO TO 1170 


IF (SERVN .EQ. 
1003 GO TO 1001 


SAVE) GO TO 1180 


C LIST-TABLE. 
1010 CONTINUE 
C CALL THE TBTOP SERVICE TO 


SET THE CURRENT ROW POINTER (CRP) 
C AHEAD OF THE FIRST ROW OF THE TABLE TELBOOK 


OQ 


LASTCC = ISPLNK ('TBTOP ', 'TELBOOK ') 
CALL THE TBDISPL SERVICE TO 
DISPLAY THE TABLE TELBOOK 


C USING THE PANEL TPANEL2 


aa 


LASTCC = ISPLNK 
GO TO 1003 


(‘TBDISPL ', 'TELBOOK ', ‘TPANEL2 ') 


C ADD-LINE. 
1020 CONTINUE 


C CALL THE TBADD SERVICE TO TRY TO 
C ADD A NEW ROW OF VARIABLES TO THE TABLE TELBOOK 


LASTCC = ISPLNK 
ZERMSG(2) = M013 
IF (LASTCC .NE. 0) ZERMSG(2) = MO10 
GO TO 1003 


('TBADD ', 'TELBOOK ') > 


1022 
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C CHANGE-LINE. 


1030 CONTINUE 


C CALL THE TBPUT SERVICE TO TRY TO 
C UPDATE A ROW OF VARIABLES IN THE TABLE TELBOOK 


LASTCC = ISPLNK ('TBPUT ', 'TELBOOK ') 
ZERMSG(2) = MO15 
IF (LASTCC .NE. 0) ZERMSG(2) = M018 
1032 GO TO 1003 . 


C DELETE-LINE. 
1040 CONTINUE : 


C CALL THE TBDELETE SERVICE TO TRY TO 
C DELETE A ROW OF VARIABLES IN THE TABLE TELBOOK 


LASTCC = ISPLNK ('TBDELETE', 'TELBOOK ') 


IF (LASTCC .EQ. 8) GO TO 1042 

ZERMSG(2) = M012 

LASTCC = ISPLNK ('TBSKIP ', 'TELBOOK ', 0) 

IF (LASTCC .EQ. 8) LASTCC = ISPLNK ('TBSKIP ', 


& 'TELBOOK ', 1) 
GO TO 1044 
1042 ZERMSG(2) = M011 
1044 GO TO 1003 


C GET-LAST-LINE. 
1050 CONTINUE 


C CALL THE TBBOTTOM SERVICE TO 

C SET THE CURRENT ROW POINTER (CRP) 

C TO THE LAST ROW OF THE TABLE TELBOOK 
C AND TO RETRIEVE THAT ROW 


LASTCC = ISPLNK ('TBBOTTOM', 'TELBOOK ') 
ZERMSG(2) = M016 
IF (LASTCC .NE. 0) ZERMSG(2) = M017 

1052 GO TO 1003 


C MODIFY-LINE. 
1060 CONTINUE 


C CALL THE TBMOD SERVICE TO 
C UPDATE OR ADD A ROW OF VARIABLES TO THE TABLE TELBOOK 


LASTCC = ISPLNK ('TBMOD ', 'TELBOOK ') 
ZERMSG(2) = M014 
IF (LASTCC .NE. 0) ZERMSG(2) = M013 
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1062 GO TO 1003 
C BLANK-SCREEN. 
C SET THE CURRENT VALUES OF THE TABLE VARIABLES TO NULL. 
C WHEN FPANEL1 IS REDISPLAYED, THE TABLE VARIABLES WILL BE 
C INITIALIZED TO NULL ON THE SCREEN. 


1070 CONTINUE 
LASTCC = ISPLNK ('TBVCLEAR', 'TELBOOK ') 


GO TO 1003 
C SCAN-TABLE. 


1080 CONTINUE 
LASTCC = ISPLNK ('TBTOP ', '‘TELBOOK ') 


C CALL THE TBSARG SERVICE TO ESTABLISH 
C A SEARCH ARGUMENT FOR SCANNING THE TABLE TELBOOK 


LASTCC = ISPLNK ('TBSARG ', ‘TELBOOK ') 
C CALL THE TBSCAN SERVICE TO 
C SEARCH THE TABLE TELBOOK FOR A ROW WITH VALUES THAT 
C MATCH THE ARGUMENT LIST 


LASTCC = ISPLNK ('TBSCAN ‘', '‘TELBOOK ') 
GO TO 1003 


C RESCAN-TABLE. 


1090 CONTINUE 
LASTCC = ISPLNK (‘TBSCAN ', ‘TELBOOK ') 


C CALL THE TBVCLEAR SERVICE TO CLEAR FROM THE SCREEN 
C THE VARIABLES DISPLAYED FROM THE TABLE TELBOOK IF ANOTHER 
C TABLE ROW IS NOT FOUND WITH THE SAME SEARCH ARGUMENT. 


IF (LASTCC .EQ. 8) LASTCC = ISPLNK ('TBVCLEAR', 'TELBOOK ') 
GO TO 1003 


C SEARCH-TABLE. 

1100 CONTINUE 
C CALL THE TBEXIST SERVICE TO TEST FOR THE EXISTENCE OF 
C A ROW IN THE TABLE WITH THE KEY VARIABLE (LAST NAME) 
C SPECIFIED ON PANEL FPANEL1. 


LASTCC = ISPLNK ('TBEXIST ', 'TELBOOK ') 
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C IF THE ROW WAS FOUND, 
C CALL THE TBGET SERVICE TO FETCH THE ROW FROM THE TABLE. 
C OTHERWISE, THE TABLE VARIABLES WILL REMAIN UNCHANGED. 


IF (LASTCC .EQ. 0) LASTCC = ISPLNK ('TBGET ', 'TELBOOK ') 
GO TO 1003 


C QUERY-TABLE. 
1110 CONTINUE 


CALL THE TBQUERY SERVICE TO 
OBTAIN FROM THE TABLE TELBOOK 
THE KEY VARIABLE NAME (S) 

THE NON-KEY VARIABLE NAMES 
THE NUMBER OF ROWS 


aqQqannann 


LASTCC = ISPLNK('TBQUERY ','TELBOOK ', 
& "QKEYS ','QNAMES ', ‘QROWS ') 


C CALL THE VCOPY SERVICE TO 
C OBTAIN A COPY OF THE DIALOG VARIABLE QROWS 


LASTCC = ISPLNK ('VCOPY ', 'QROWS ', 8, QDATA, 'MOVE ") 


C CALL THE VREPLACE SERVICE TO 
C UPDATE THE DIALOG VARIABLE QROWS 


LASTCC = ISPLNK ('VREPLACE', 'QROWS ', 8, QDATA) 


C CALL THE DISPLAY SERVICE TO 
C DISPLAY THE PANEL TPANEL3 


LASTCC = ISPLNK (‘DISPLAY ', 'TPANEL3 ') 
GO TO 1003 


C PREPARE-REPORT. 
1120 CONTINUE 


C CALL THE FTOPEN SERVICE TO 
C BEGIN FILE TAILORING 


LASTCC = ISPLNK ('FTOPEN ') 


C CALL THE FTINCL SERVICE TO 
C DO FILE TAILORING USING THE FILE TAILORING SKELETON TELBOOK 


LASTCC = ISPLNK ('FTINCL ', 'TELBOOK ') 
C CALL THE FTCLOSE SERVICE TO 


C TERMINATE FILE TAILORING AND 
C STORE THE OUTPUT AS MEMBER TELOUT 
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C 


aaa aqanagnnaaqa 


C 


aqQaaananaa 


C 


LASTCC = ISPLNK 


ZERMSG(2) = M022 


GO TO 1003 


BROWSE-REPORT. 


1130 CONTINUE 


('FTCLOSE ', 'TELOUT ') 


CALL THE BROWSE SERVICE TO BROWSE TELOUT IN THE FILE 
THE USER SHOULD SPECIFY THE 


TAILORING OUTPUT DATASET. 


DATASET NAME WITH THE MEMBER. 


FOR VM THE FILEID OF THE FILE 


TAILORING OUTPUT MACLIB IS SPECIFIED WITH THE MEMBER NAME 


AS A SEPARATE PARAMETER. 


EXAMPLE: 


LASTCC = ISPLNK ('BROWSE', '(FTOUTPUT MACLIB )', 'TELOUT ') 
THIS FUNCTION IS NOT AVAILABLE UNLESS THE ISPF/PROGRAM 
DEVELOPMENT FACILITY PROGRAM PRODUCT IS INSTALLED. 


LASTCC = ISPLNK ('BROWSE', '''ISPFPROJ.FTOUTPUT(TELOUT)'' ') 


GO TO 1003 


EDIT-REPORT. 


1140 CONTINUE 


CALL THE EDIT SERVICE TO EDIT TELOUT IN THE FILE 
THE USER SHOULD SPECI¥Y THE 


TAILORING OUTPUT DATASET. 


DATASET NAME WITH THE MEMBER. 


FOR VM THE FILEID OF THE FILE 


TAILORING OUTPUT MACLIB IS SPECIFIED WITH THE MEMBER NAME 


AS A SEPARATE PARAMETER. 


EXAMPLE: 


LASTCC = ISPLNK ('EDIT’', '(FTOUTPUT MACLIB )', 'TELOUT ') 
THIS FUNCTION IS NOT AVAILABLE UNLESS THE ISPF/PROGRAM 
DEVELOPMENT FACILITY PROGRAM PRODUCT IS INSTALLED. 


LASTCC = ISPLNK ('EDIT', '''ISPFPROJ.FTOUTPUT(TELOUT)'' ') 


GO TO 1003 


DESTROY-REPORT. 


1150 CONTINUE 


C CALL THE FTERASE SERVICE TO 


C DELETE THE FILE TAILORING OUTPUT TELOUT 


C 


LASTCC = ISPLNK 


ZERMSG(2) = M023 


GO TO 1003 


REFRESH-TABLE. 


1160 CONTINUE 


('FTERASE ', 'TELOUT ') 
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C CALL THE TBEND SERVICE TO j 
C CLOSE THE TABLE TELBOOK WITHOUT SAVING IT ON DISK 


LASTCC = ISPLNK ('TBEND ', 'TELBOOK ') 
LASTCC = ISPLNK ('TBOPEN ', 'TELBOOK ') 
LASTCC = ISPLNK ('TBSKIP ', 'TELBOOK ') 
ZERMSG(2) = M021 

GO TO 1003 


C REMOVE-TABLE. 
1170 CONTINUE 
LASTCC = ISPLNK ('TBCLOSE ', 'TELBOOK ') 


C CALL THE TBERASE SERVICE TO 
C DELETE THE TABLE TELBOOK FROM THE TABLE OUTPUT LIBRARY 


LASTCC = ISPLNK ('TBERASE ', 'TELBOOK ') 

LASTCC = ISPLNK ('TBCREATE', 'TELBOOK ', TABKEY, TABVRS) 
ZERMSG(2) = M020 

GO TO 1003 


C SAVE-TABLE. 


1180 CONTINUE 


C CALL THE TBSAVE SERVICE TO 
C WRITE THE TABLE TELBOOK FROM VIRTUAL STORAGE 
C TO THE TABLE OUTPUT LIBRARY 
LASTCC = ISPLNK ('TBSAVE ', 'TELBOOK ') : 
ZERMSG(2) = MO19 


GO TO 1003 
END 


PL/I] IMPLEMENTATION 

In addition to the components listed under "Dialog Components Applicable to All 
Implementations," the following components are required for the PL/I implementation 
of the dialog: 

e Combined selection and data entry panel TPANEL1 


e Function TELEBOOK 


e Function TELESRVC 
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PL/I - COMBINED SELECTION AND DATA ENTRY PANEL TPANEL1 


Definition and display of panel TPANEL1 is shown below. 


Panel Definition 


JATTR 
_  TYPECINPUT) INTENS (LOW) JUST (CLEFT) PAD(' ‘') CAPS (ON) 
@ TYPECINPUT) INTENS (HIGH) JUST (LEFT) PAD(' ') CAPS (ON) 
) BODY 
Prt wwe r ese ces eeeewec= Telephone Book Application cere rres semen senennnnseesecse 


+SELECT AN OPTION: %===>@ZCMD 
% 
% At+- Add new entry 


% C+- Change existing entry *F+- Refresh the table, from disk 

% D+- Delete old entry %K+- Remove the table, from disk 

% Gt- Get last entry %L+- List the table 

% M+- Add/Change entry %Q+- Query the table 

% a&t- Blank screen entry *o+- Scan the table, non unique 

% P+- Prepare report *R+- Rescan the table, continue scan 
% B+- Browse report %1+- Search on last name, unique key 
% E+- Edit report *V+- Save the table, on disk 


% Y+- Destroy report 


+Current values / enter search values: 


% 

+ FIRST NAME ===> TFNAM + 

+ LAST NAME ===> TLNAM + 

+ LOCATION ===> TLOC + 
+ PHONE NUM ===> TNUM + 

+ PHONE COLOR===> TCOLOR + 
+ PHONE TYPE ===> TTYPE + 

)INIT 


.CURSOR = ZCMD 
&ZCMD = &OTELOPT 
&VARL = '(TNUM TLNAM TFNAM TLOC TTYPE TCOLOR)' 
IF(&ZERRMSG -= '' ') 
.MSG = &ZERRMSG 
&ZERRMSG = '' '' 


) PROC 


&ZSEL = TRANS( &ZCMD 
L,'PGM(TELESRVC) PARM(/LIST &VARL) ' 
A,'PGM(TELESRVC) PARM(/ADD &VARL) ' 
C,'PGM(TELESRVC) PARM(/CHANGE &VARL)' 
D,'PGM(TELESRVC) PARM(/DELETE &VARL)' 
G,'PGM(TELESRVC) PARM(/GETLAST &VARL)' 
M,'PGM(TELESRVC) PARM(/MODIFY &VARL)' 
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&OSEL = &ZSEL 
IF(&ZCMD = S) 
&ZCMD = R 


Z,' PGM(TELESRVC) 
S, 'PGM(TELESRVC) 
R, 'PGM(TELESRVC) 
T, 'PGM(TELESRVC) 
Q, 'PGM(TELESRVC) 
P, 'PGM(TELESRVC) 
B, 'PGM(TELESRVC) 
E, 'PGM(TELESRVC ) 
Y, 'PGM(TELESRVC) 
F, 'PGM(TELESRVC) 
K, 'PGM(TELESRVC) 
V, PGM(TELESRVC ) 
t t 


: tot 
cae 


&OTELOPT = &ZCMD 


IF(&ZCMD -= R) 


VER(&TNUM, PICT, 'NNN-NNNN' ) 


)END 


Panel Display 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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- Add new 


- Prepare 


KHOU NE QUOD PS 
I 


- Destroy 


Current values / enter search values: 


PARM(/BLANK &VARL)' 
PARM(/SCAN &VARL) ' 
PARM(/RESCAN &VARL)' 
PARM(/SEARCH &VARL)' 
PARM(/QUERY &VARL)' 
PARM(/PREPREP &VARL)' 
PARM(/BROWSE &VARL)' 
PARM(/EDIT &VARL) ' 
PARM(/DESTROY &VARL) ' 
PARM(/REFRESH &VARL)' 
PARM(/REMOVE &VARL)' 
PARM(/SAVE &VARL) ' 


------ TELEPHONE BOOK APPLICATION ---------------------------- 
SELECT AN OPTION: ===> C_ 


entry 


- Change existing entry 
- Delete old entry 

- Get last entry 
Add/Change entry 

- Blank screen entry 


report 


- Browse report 
- Edit report 


report 


FIRST NAME ===> LINDA 


LAST NAME ===> MILLER 
LOCATION ===> KITCHEN 
PHONE NUM ===> 462-4441 


PHONE COLOR===> RED 


PHONE TYPE ===> WALL DIAL 
5 8s 


<SHDNDAHA I 


Refresh the table, from disk 
Remove the table, from disk 
List the table 

Query the table 

Scan the table, non unique 
Rescan the table, continue scan 
Search on last name, unique key 
Save the table, on disk 
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PL/I - FUNCTION TELEBOOK 


TELEBK: PROC OPTIONS (MAIN) ; 


[RRR ERR ER ERE EER EER ERE ER ERAN ERE EEE EE REEEEE RE EEEEREER EERERE 


* THE OBJECTIVE OF THE CODING TECHNIQUE OF THIS APPLICATION IS. * 
* TO ILLUSTRATE ISPF SERVICES ¥ 
* * 
* THE APPLICATION CONSISTS OF * 
¥ THIS MAIN PROGRAM - TELEBOOK ¥ 
¥ 1 SUB PROGRAM - TELESRVC * 
7 3 PANELS - TPANEL1 TPANEL2 TPANEL3 * 
* 15 MESSAGES - TELBO10 THRU TELBO24 * 
* 1 FILE TAILORING SKELETON - TELBOOK * 
* % 
* THE APPLICATION PROVIDES THE FOLLOWING FUNCTIONS * 
* FROM PANEL TPANEL1 TO ACCESS A TELEPHONE BOOK 7 
* ¥ 
% A ADD NEW ENTRY * 
% C CHANGE EXISTING ENTRY F REFRESH THE TABLE, FROM DISK * 
%* D DELETE OLD ENTRY K REMOVE THE TABLE, FROM DISK ¥ 
% G GET LAST ENTRY L LIST THE TABLE ¥ 
* M ADD/CHANGE ENTRY Q QUERY THE TABLE 7 
*% Z BLANK SCREEN ENTRY S SCAN THE TABLE, NON UNIQUE * 
%*% P PREPARE REPORT R RESCAN THE TABLE, CONTINUE SCAN ¥ 
%* B BROWSE REPORT T SEARCH ON LAST NAME, UNIQUE KEY * 
%*% E EDIT REPORT V SAVE THE TABLE; ON DISK 
% Y DESTROY REPORT * 
HARRI HII EERE TE RITE IC IE LER TE TE TEED EDEL ICTS TE TEED TE B TERE RRR TRE ERE | 


DCL ISPLINK EXTERNAL ENTRY OPTIONS (ASM RETCODE INTER) ; 
DCL PLIRETV BUILTIN; 

DCL TERMINATION MESSAGE CHAR(8) INIT('TELBO24 '); 

DCL L15 FIXED BIN(31,0) INIT(15); 

DCL COMMAND STREAM CHAR(15) INIT('PANEL(TPANEL1)'); 


[RRR ER EEE ER EERE EERE REE EER REUTER ERIE RE ERE EEA ERE RE REE 


¥ CALL THE CONTROL SERVICE TO * 
* SET THE ERROR PROCESSING MODE FOR THIS PROGRAM TO * 
* TERMINATE ONLY FOR ANY ERROR THAT HAS A RETURN CODE OF * 
* 12 OR HIGHER ¥ 


RIANA NIE ETE ENTE TEE EIS TERT TENTS TTC ECT TT TUTTE RN RTT | 


CALL ISPLINK('CONTROL ', 'ERRORS ', ‘CANCEL '); 


[ RRR RT ERR RTE RIE EIR IT ETE TEETER TE TERTEREE TTE RRR REET TEER TEE ERE EER 
% CALL THE TBOPEN SERVICE TO * 
* OPEN THE TABLE, TELBOOK IN WRITE MODE * 


HT NEATH EE EE TT TIE TE TELE TE TET TE TEAS TS TTS TCT TCI TCT ICTS TE TEE TE ETE TETRIS f 


CALL ISPLINK('TBOPEN', 'TELBOOK ', 'WRITE'); 
IF PLIRETV() = 8 THEN 
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[BRRRERERERREREREREERERERER EEE ERER ERE EERE REE EERERERERERER EERE 
* CALL THE TBCREATE SERVICE TO * 
* CREATE THE TELBOOK IF IT DOES NOT EXIST. THE KEY * 
* VARIABLE IS SPECIFIED BY TABKEY AND THE NON-KEY * 
* VARIABLES ARE SPECIFIED IN TABVARS. * 


AREA EAE EERIE NEE EET NILE ICT ITE TE TS CUTER ICN IIIT TREN REIN 


CALL ISPLINK('TBCREATE ', 'TELBOOK ', '‘(TLNAM) ', 
"(TFNAM TLOC TNUM TCOLOR TTYPE)' ); 


[BRRAEERRREREEEERRERREREERERERREREERER ERE ER ERERREREERR EEE ER EREREER EERE 
CALL THE TBSKIP SERVICE TO % 
MOVE THE CURRENT ROW POINTER (CRP) OF THE TABLE FORWARD ¥ 
ONE POSITION (DEFAULT). THE VARIABLES WILL BE SET TO * 
VALUES CONTAINED IN THE FIRST ROW OF THE TABLE OR REMAIN * 


* SET TO NULLS IF THE TABLE WAS JUST CREATED. * 
HENRI EE EERE NE IEEE TN TT TE EIT NNN ICRU RITTER NNT IRR IT | 


+ tt oF 


CALL ISPLINK('TBSKIP ', 'TELBOOK '); 


[RERRREREERERRE RE REREEREREREREREEEERERREREREERERERERERREREEREREERERER 
* SET THE TABLE VARIABLES IN THE SHARED VARIABLE POOL TO THE * 
* VALUES CONTAINED IN THE 1ST ROW OF THE TABLE. THESE VALUES * 
* WILL BE USED TO INITIALIZE THE VALUES ON THE SCREEN FOR * 


* PANEL TPANEL1. 
PRN REINER HE TET TILE EERE TRIE ET LIEN TER TEE RUE ERIE RERER ERE | 


CALL ISPLINK('VPUT ', '(TFNAM TLNAM TLOC TNUM TCOLOR TTYPE)', 


[BRRERERRERREREERRERERER RE ERERERERE ERE REREEER ER ERE RER EE RERERER ERR ERER 
* CALL THE SELECT SERVICE TO * 
7 CONTINUE TO DISPLAY PANEL TPANEL1 AND CONTROL THE * 
* INVOCATION OF THE SUB PROGRAM TELESRVC * 


ARERR ERIE EEE EEN ETAT ENN TURIN TERRE NIE REET REBAR | 


CALL ISPLINK('SELECT ', L15, COMMAND STREAM) ; 
[BERR RE ER ERERERERERRER EERE EE ER ERE REET EE ER ER TERE ER ER ERE ER ER 
* CALL THE TBCLOSE SERVICE TO CLOSE THE TABLE TELBOOK * 


HENAN ENN NE INTE TE I TS ISITE TET ICE ISTE TTT TS SE TEN TOIT TEN IIT | 


CALL ISPLINK('TBCLOSE ', 'TELBOOK '); 


[RRERERRERRERERERERERERERE REREREREEERRRERERERERERER EEEREERERERR EERE 
os CALL THE LOG SERVICE TO * 
sal PUT THE MESSAGE TELB024 ON THE ISPF LOG FILE * 


CALL ISPLINK('LOG ', TERMINATION MESSAGE) ; 
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[RRERRERRERRERERRERRE EERE ERR EERE EERERREER ER RRERER CREE ER EEERE ERR ERERE 
7 CALL THE SETMSG SERVICE TO ¥ 


* PUT THE MESSAGE TELB024 ON THE NEXT SCREEN DISPLAYED * 
HAKKAR LCL ERE EEE IRE ER EREEREER EERE EER ERERERE RER ER EER ERERERERRE | 


CALL ISPLINK('SETMSG ', TERMINATION MESSAGE) ; 


[BRRERERE EEE REREE REE EEERE EERE EEE REEEREREREE BEREE RE RE ERE EEE EER EEE 


* CALL THE VRESET SERVICE TO * 
7 REMOVE THE ISPF ADDRESSABILITY OF ANY VDEFINED VARIABLES * 
HAA EET ERE EERIE EE SER IER ETE EAE TEER ERE REET EEE EEE UE EEE RE ER ER ERR | 


CALL ISPLINK('VRESET '); 
END TELEBK; 


PL/I - FUNCTION TELESRVC 


TELESRV: PROCEDURE (PRM) OPTIONS (MAIN) ; 


[RERRERRRERRERERERERERERERERERER EE REEEREERERERERERE ER EUERER ERE REREE RRR 


we ve 
* THIS SUBPROGRAM IS INVOKED FROM PANEL TPANEL1 DISPLAYED * 
BY THE MAIN PROGRAM TELEBOOK USING THE SELECT SERVICE * 
* vw 


HARRIET ER EE EIT TER ENE IE TE ETE TET TS TE TE TTS TNC TT TCE TS TS TS TET TIS TT TCT CTT TEI TC TST 


DCL PRM CHAR(45) VARYING; 

DCL ISPLINK EXTERNAL ENTRY OPTIONS(ASM RETCODE INTER) ; 
DCL PLIRETV BUILTIN; 

DCL SUBSTR BUILTIN; 


DCL PANEL2 CHAR(8) INIT('TPANEL2 '); 
DCL PANEL3 CHAR(8) INIT('TPANEL3 '); 
DCL TELBOOK CHAR(8) INIT('TELBOOK '); 


[RRR RR ER ERERE EREEEREREERERREEREER ERE CRETE RETR REREREREEEEEERERER 
¥ FTOUTPUT SHOULD BE INITIALIZED TO THE USER'S FILE TAILORING * 


% OUTPUT PARTITIONED DATASET NAME WITH THE MEMBER DEFINED % 
* AS TELOUT. FOR VM FTOUTPUT SHOULD CONTAIN THE FILE * 
* TAILORING OUTPUT MACLIB NAME WITHOUT A MEMBER NAME, AS: * 
we we 
# DCL FTOUTPUT CHAR(20) INIT('(FTOUTPUT MACLIB A )'); z* 


WHITER LTR IER TERETE TR TERETE ETE HEE TE TELE LE TERETE ELE EE RIK EBERLE REECE | 


DCL FTOUTPUT CHAR(30) INIT('''ISPFPROJ.FTOUTPUT(TELOUT)'''); 


DCL TABKEY CHAR(8) INIT('(TLNAM) '); 

DCL TABVRS CHAR(30) INIT('(TFNAM TLOC TNUM TCOLOR TTYPE)'); 
DCL ZERMSG CHAR(8) INIT((8)' '); 

DCL ZMSGNAME CHAR(9) INIT('(ZERRMSG) '); 

DCL QKEYS CHAR(8) INIT('QKEYS Bie 

DCL QNAMES CHAR(8) INIT('QNAMES '); 
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DCL QROWS CHAR(8) INIT('QROWS ‘'); 
DCL QROWSDATA  CHAR(8); 

DCL QROWSDATAZ CHAR(8); 

DCL ZEERO FIXED BIN(31,0) INIT(0); 
DCL ONE FIXED BIN(31,0) INIT(1); 

DCL L8 FIXED BIN(31,0) INIT(8); 


DCL VARLIST CHAR (36) ; 
DCL SERVN CHAR(7); 
[BERR ERR ERE EER ERE EERE REE RE RER EER REREEREEREERER ER ERREREREREEEEE 
* VARLIST IS SET TO THE LIST OF THE NAMES OF THE TABLE ¥ 
* VARIABLES AND SERVN IS SET TO THE FUNCTION REQUESTED BY % 
* THE USER ON TPANEL1. THESE VALUES WERE PASSED AS A ¥ 
* PARAMETER FROM TPANEL1 WHEN THE PROGRAM WAS INVOKED. 7 
FRIAR LEN RIE LE TE TEN CUTE RN TERR RIENCE TER RATE NR REECE | 
VARLIST = SUBSTR(PRM,9 ,36); 
SERVN = SUBSTR(PRM,1,7); 
[BEREEREERERREREREEEREER EERE ERREREREE REE ER ER ERER ERE EERREERERERERER ERE 
* CALL THE VDEFINE SERVICE TO * 
* GIVE ISPF ADDRESSABILITY TO ZERMSG AS DEFINED WITHIN * 
* THIS PROGRAM AS A CHARACTER FIELD WITH A LENGTH OF 8 te 


HANGER EER ER EERE REE REE RRR BREE EEE ERE ERE ER ER ER ERE RERER | 


CALL ISPLINK('VDEFINE ', ZMSGNAME, ZERMSG, 'CHAR ', L8); 


[BURR RICE ER EERE ERE RE REREERER ER EERE RUE REE EE EERER EE RER ER EERE 


ve CALL THE VGET SERVICE TO * 
* COPY THE VALUES LISTED IN VARLIST FROM THE SHARED VARIABLE * 
* POOL TO THIS PROGRAM'S SET OF FUNCTION VARIABLES * 


HAAR NTE RAE RIE IR HEREIN RETRIEVER EEE EERE EERE ERER ERE | 


CALL ISPLINK('VGET ', VARLIST, ‘SHARED '); 
CALL SERVRTN; 


[BERRI EERRERR RR ERE EE ERE RERE REE REE RR ERE EERE REREREREREREERERERERERE 


* CALL THE VPUT SERVICE TO * 
* COPY THE VALUES LISTED IN VARLIST FROM THIS PROGRAM'S SET * 
* OF FUNCTION VARIABLES TO THE SHARED VARIABLE POOL bd 


WHMIS ERE EEE EERE ER EERE RERERERE | 


CALL ISPLINK('VPUT ', VARLIST, ‘SHARED '); 

CALL ISPLINK('VPUT ', ZMSGNAME, ‘SHARED '); 
[RERRRRRRRREEERERERR ERE REE REE ER ER ER ERE REET EERE ER ERE EER EERE 
* CALL THE VDELETE SERVICE TO REMOVE ISPF ADDRESSABILITY ¥ 
* TO ZERMSG AS PREVIOUSLY VDEFINED WITHIN THIS PROGRAM * 


HAVEN RARER TRIER ERIE EIN IE LESTER ERLE EE RRR EERE REE ERE | 


CALL ISPLINK('VDELETE ', ZMSGNAME); 
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C 


c 


SERVRTN: PROCEDURE; 
IF SERVN = 'LIST  ' THEN CALL LISTTAB; 
ELSE IF SERVN = 'ADD ' THEN CALL ADDLINE; 
ELSE IF SERVN = 'CHANGE ' THEN CALL CHNGLIN; 
ELSE IF SERVN = 'DELETE ' THEN CALL DELETEL; 
ELSE IF SERVN = 'GETLAST' THEN CALL GETLSTL; 
ELSE IF SERVN = ‘MODIFY ' THEN CALL MODIFYL; 
ELSE IF SERVN = 'BLANK ' THEN CALL BLNKSCR; 
ELSE IF SERVN = 'SCAN  !' THEN CALL SCANTAB; 
ELSE IF SERVN = 'RESCAN ' THEN CALL RESCNTB; 
ELSE IF SERVN = ‘SEARCH ' THEN CALL SRCHTAB; 
ELSE IF SERVN = ‘QUERY ' THEN CALL QRYTABL; 
ELSE IF SERVN = 'PREPREP' THEN CALL PREPRRP; 
ELSE IF SERVN = ‘BROWSE ' THEN CALL BRSEREP; 
ELSE IF SERVN = ‘EDIT  ' THEN CALL EDITREP; 
ELSE IF SERVN = 'DESTROY' THEN CALL DSTRYRP; 
ELSE IF SERVN = 'REFRESH' THEN CALL RFRSHTB; 
ELSE IF SERVN = ‘REMOVE ' THEN CALL RMVTABL; 
ELSE IF SERVN = 'SAVE ‘| THEN CALL SAVETAB; 
END SERVRTN; 


LISTTAB: PROCEDURE; 


[BREREREREREEEERERERERE ERE EE EEE EERE EEEREEERERCEEEREEEREEEEEREREEREE EEE ERE 
* CALL THE TBTOP SERVICE TO * 
* SET THE CURRENT ROW POINTER (CRP) * 


* AHEAD OF THE FIRST ROW OF THE TABLE TELBOOK * 


ake ale ale ale alonltaalasntenlonta nla alone nlantes ala ntanlontsalantontantantsnlantanlante nlantantantaalanlontantoutaalaalsnlanta nla atantsntantonta nlanltanlantenlon!tsalontaoalaatontas alantantantants mtontec 
PREV ADEE EY AV GL CE GD AL GEIL ELIE GE FL AL ID GL ITAL ITAL IR IL AL ID AL IL IL IL AL ANIL GL ITED AU IVIL IL EL GL IV IVIL IL ITIL IT IVI AL IV GD ITIL IL ID ED Gd IL Ed Gd se 


CALL ISPLINK('TBTOP ', TELBOOK) ; 


[RRR EERE REE EERE EEE TE EEE EEE RTE SEE EERE REESE EEE ER EER EEE EERE ERE 
* CALL THE TBDISPL SERVICE TO * 
* DISPLAY THE TABLE TELBOOK USING THE PANEL TPANEL2 “ 


oleate mlonts mls ato nlontantantonta ntantsataats afsntanlsala nts alantsntantontsatanlontsnlsntsntantsalsatsnlsatsatsatsatantsnlsntsalsalsalsatsntonlsatantsalsntsalsntaatasntontsalantontsatsntsnts ntouts 
ECR IL AT AL AV ED AR IV GT ED FD EY ID AR ERED IEG GY IVIL AVIV GV EVID EL AIDED IL GT GL GT IT AVIV IL GD IDL IV GT IV EV GV IV ED IV IV EVAN ITV EV ED ER EVID EL EVEL AL EV ED FV ED 


CALL ISPLINK('TBDISPL ', TELBOOK, PANEL2); 
END LISTTAB; 


ADDLINE : PROCEDURE; 


[ BRERERERERERER EERE RERERERER TESTER ERR RS EBEERTE RRR AR BEBE BREE REE EERE ERER 
* CALL THE TBADD SERVICE TO TRY TO * 
* ADD A NEW ROW OF VARIABLES TO THE TABLE TELBOOK * 


mloals ala als alae ats mlaee ls alee ales oles mle ales ates nln af els el nles alas ales ales ales ales eles eles les mtn lee wlan ale olen bee alan lee alee olan enlan mtn ates mtr len ler elo mln: ate ute alone ala eloniontonta nla mtonta alamlsnlantsnianl a ntonte 
OV EV EDIE AL EL ED ALOR GL EL IV GN GRIN EV GD IVE GD EV IVIL IN ILIV IN GDL IV IV OVID EVIL EV IV GL ED IV EVID EL IVES TV OV EV EV ED ED TRIN GL ERED OVID ET ER ED EV ENED EN GS 


CALL ISPLINK('TBADD ', TELBOOK); 
IF PLIRETV() = 0 THEN 
ZERMSG = 'TELBO13 '; 
ELSE 
ZERMSG = 'TELBO10 '; 
END ADDLINE; 
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CHNGLIN: PROCEDURE; 


[HRN EAC RE LER ERE RERERERREEREREEER EERE RREEREESERERE RE EEREREEREERERE 


* CALL THE TBPUT SERVICE TO TRY TO * 


* UPDATE A ROW OF VARIABLES IN THE TABLE TELBOOK * 
RRL TERE RIKER IEEE TERE REE TER REET ERE EE REECE EE EERERRERREE | 


CALL ISPLINK('TBPUT ', TELBOOK); 
IF PLIRETV() = 0 THEN 
ZERMSG = 'TELBO15 '; 
ELSE 
ZERMSG = 'TELBO18 '; 
END CHNGLIN; 


DELETEL: PROCEDURE; 


[RRREREERREREREERREREERERER ER ER ERE EREEE EEE EEE EEE ER RERE ERE REE RERUERERE 


* CALL THE TBDELETE SERVICE TO TRY TO a 


* DELETE A ROW OF VARIABLES IN THE TABLE TELBOOK * 
WERKE EERIE RENE IEEE ER IETS TERISTIC TTS TNT TTT TET TT NII UII N | 


CALL ISPLINK('TBDELETE ', TELBOOK); 
IF PLIRETV() = 8 THEN 
ZERMSG = 'TELBO11 '; 
ELSE 
ZERMSG = 'TELBO12 '; 
CALL ISPLINK('TBSKIP ', TELBOOK, ZEERO); 
IF PLIRETV() = 8 THEN 
CALL ISPLINK('TBSKIP ', TELBOOK, ONE); 
END DELETEL; 


GETLSTL: PROCEDURE ; 


[RERRERRRRRERRERIEEEREREERR ER ER ERE EERERER ET EERE RR EREEEER ERE ERE EERE E 


% CALL THE TBBOTTOM SERVICE TO * 
* SET THE CURRENT ROW POINTER (CRP) TO THE LAST ROW OF THE * 
Ea LAST ROW OF THE TABLE TELBOOK AND TO RETRIEVE THAT ROW * 


INNER TEE IE IEEE NEN TEE TEE ETE TE TS TS TST TOT ULE TE TE TE TED TED TET UCT ICU f 


CALL ISPLINK('TBBOTTOM', TELBOOK); 
IF PLIRETV() = 0 THEN 
ZERMSG = 'TELBO16 '; 
ELSE 
ZERMSG = 'TELBO17 '; 
END GETLSTL; 
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: MODIFYL: PROCEDURE ; 


[RERERERRERERE REE RERR EER BERERERERERREREE REE RE EERR EEE BERR ERE EERE REE 
% CALL THE TBMOD SERVICE TO * 
* UPDATE OR ADD A ROW OF VARIABLES TO THE TABLE TELBOOK * 


os alteoaltasalsatsntsntsaton eo! f. f, tao al . 
ANAK EE REECE ERERE RRR EER ERE EERE RR RERERRREREREEERERERERERERE | 


CALL ISPLINK('TBMOD ', TELBOOK); 
IF PLIRETV() = O THEN 
ZERMSG = 'TELBO14 '; 
‘ ELSE 
ZERMSG = 'TELBO13 '; 
END MODIFYL; 


i BLNKSCR: PROCEDURE; 


[RRR REE ERE EER ERE EER EERE EEE ERTS TEETER ETE ETRE TER TEER REE RR EET 
* SET THE CURRENT VALUES OF THE TABLE VARIABLES TO NULL. ¥ 
* WHEN TPANEL1 IS REDISPLAYED, THESE VARIABLES WILL BE * 
* DISPLAYED AS NULL VALUES ON THE SCREEN. * 


HARRIET RE ERIE EEE ET EERE TE REE EEE TEIN NRT RANT N NTT | 


CALL ISPLINK('TBVCLEAR', TELBOOK); 
END BLNKSCR; 


( SCANTAB: PROCEDURE ; 


CALL ISPLINK('TBTOP ', TELBOOK) ; 


[RERREREREERERERERREREERERE RR EEE RERERERER RE EER EER ERE EERE REE RE REERER 
* CALL THE TBSARG SERVICE TO ESTABLISH * 
- ¥ A SEARCH ARGUMENT FOR SCANNING THE TABLE TELBOOK * 


HIKER EERE ER EERE EELS EER BERR EER ERE REE EEE BER ER EERE EEE REERERERER | 


CALL ISPLINK('TBSARG ', TELBOOK); 


[ HERRIERE ERE ERE RE REREAD TELE TCLS TIED TE TC TE ICTS 
CALL THE TBSCAN SERVICE TO ¥ 
* SEARCH THE TABLE TELBOOK FOR A ROW WITH VALUES THAT ¥ 
* MATCH THE ARGUMENT LIST * 


RIKI NE ERE ERE ERE BER ER EERE ER ERE REE EERE RECS RERREEERERERER ERE | 


CALL ISPLINK('TBSCAN ', TELBOOK); 
END SCANTAB ; 


RESCNTB: PROCEDURE; 


CALL ISPLINK('TBSCAN ', TELBOOK); 
IF PLIRETV() = 8 THEN 
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[BRRREE RE REE EERE REEERERSEEEEERERERREREREEERERREREERERERERE RRR ERERERER 
* CALL THE TBVCLEAR SERVICE TO * 
* CLEAR FROM THE SCREEN THE VARIABLES DISPLAYED FROM THE * 
* TABLE TELBOOK IF ANOTHER ROW WAS NOT FOUND WITH THE * 
* SAME SEARCH ARGUMENTS. ¥ 


§, ) a af, Py 
BERR E LEER EERE NEES EERE AT T RESETS R BREA R TRENT TRE REBT RCE EER REBER | 


CALL ISPLINK('TBVCLEAR', TELBOOK); 
END RESCNTB ; 


SRCHTAB: PROCEDURE; 


[BIRR RRR EERE ERE REE REE ER ERE ER ERE REERERER ER EERERE RE RE RREE 
* CALL THE TBEXIST SERVICE TO ¥ 
* TEST FOR THE EXISTENCE OF A ROW WITH KEY VARIABLE VALUE % 
¥ (LAST NAME) SPECIFIED ON TPANEL1. * 


RARER ERE ETE NE TER TET TET IE TE IETS IETS TS TE TE TE TESTE TS TS TE TE TE DELE TIE TE TEES IEICE TCT TE ICTS TEE TC ITE ITE, 
t t 
CALL ISPLINK( TBEXIST  , TELBOOK); 


IF PLIRETV() = 0 THEN 


[BRRERRRRRERRER REE REEREREREREREERERERECR EER EER REE EREREREEEERRE SIR 
* IF THE ROW WAS FOUND CALL THE TBGET SERVICE TO * 
* FETCH THE ROW OF VARIABLES FROM THE TABLE. OTHERWISE ¥ 
¥ THE VALUE OF THE TABLE VARIABLES WILL REMAIN UNCHANGED. ¥ 


KIRN EEE TE ETE EN TET ET TED Te TE TT ES I TE TE TE TE TS LEDC TE TE TE LETS TE TTC TE TE TET UE ICT CTC TTT 


CALL ISPLINK('TBGET ', TELBOOK); 
END SRCHTAB; 


QRYTABL: PROCEDURE; 


[BRRREEEEERERERRER ER REERE EERE EERE EE RRERE EEE EERE EER RE EEEERER ERE SE 
* CALL THE TBQUERY SERVICE TO OBTAIN FROM THE TABLE TELBOOK: * 
* KEY VARIABLE NAME (S) * 
* NON-KEY VARIABLE NAMES * 
* NUMBER OF ROWS * 


HANNE TERE NTE LER TE THIET TCT IE TEETER AERATED | 


CALL ISPLINK('TBQUERY ', TELBOOK, QKEYS, QNAMES, QROWS); 


[RRR EER ERE ER EEERE EER ERE RRERELE ER ER REE ERE EER RE RE RRERERERE 


* CALL THE VCOPY SERVICE TO * 


% OBTAIN A COPY OF THE DIALOG VARIABLE QROWS * 
RRR RTL EN HITE EIEN ETE TE TE TELE TE LEDERER RTE TET TE TERR ERE EE ERIE | 


CALL ISPLINK('VCOPY ', 'QROWS ', L8, QROWSDATA, ‘MOVE '); 
QROWSDATAZ = QROWSDATA; 
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[RERRERREREREERERERERERR ERE RE RES BEEEERERERERE TERE EERE ERE REREREREERY 
* CALL THE VREPLACE SERVICE TO * 


* UPDATE THE DIALOG VARIABLE QROWS * 
Fevedetededete sede de defete RARER EER REEERATREERRRREERERERRAEEERRER RIG / 


CALL ISPLINK('VREPLACE', 'QROWS ', L8, QROWSDATAZ); 


PAM AM AMARA AMAR AMA Aw AYA Ad el a deh AA AMAA) 


¥ CALL THE DISPLAY SERVICE TO DISPLAY THE PANEL TPANEL3 ¥ 


WERE EERE EE REE EERE ER EE CRETE CRE RETR RRR REE AE ARTE RERE ARREARS | 


[BERBER EERE ERERE REE ER REEEERERERE BEER TEETER TRE ER EERE RE BRRICRRR 


CALL ISPLINK('DISPLAY ', PANEL3); 
END QRYTABL; 


PREPRRP: PROCEDURE; 


[RRRRERERERER RE RERREERERE EEE EER ER EER ER ERR ERE EEE REE RE EER BER EREERERERER 


* CALL THE FTOPEN SERVICE TO BEGIN FILE TAILORING * 


HAKKAR EERE ER EEE EEER ERE ERE EERE EEE EEER EERE EERE ERE EE EERE ERERERER | 


CALL ISPLINK('FTOPEN '); 


[ RRERRERERR EERE REE REET ETE TERT CTT ITS STS TETRIS ESTES CTE TESTS ETE TS TTT TAS TTT 
* CALL THE FTINCL SERVICE TO ¥ 
* DO FILE TAILORING USING THE FILE TAILORING SKELETON TELBOOK * 


RRR EET EINE LTT IETS EEE TEETER CTS ETT TTT NTR RIE RCE CERT | 


CALL ISPLINK('FTINCL ', TELBOOK); 


[ BRRRRRRRRERERE IEEE EERIE REE ER BEER EEE NBT EEE TR NR AREER TR TRATED 
* CALL THE FTCLOSE SERVICE TO TERMINATE FILE TAILORING * 
* AND STORE THE OUTPUT AS MEMBER TELOUT * 


¢. mo} i} ‘el To nl aa! Pn A es ee ere Fas Fan on tee tae oles wl Fs al al Ts mn! t. el 
Selolkedokdokdelekdoeidokkdedkickdsdedwidesdl kits: I «alte / 


CALL ISPLINK('FTCLOSE ', 'TELOUT '); 
ZERMSG = 'TELBO22 '; 
END PREPRRP; 


BRSEREP: PROCEDURE; 


[RRRERERIRRERRE RRR RRR REE RETR TNR EIRENE RE IE EEE ERE RERERERE 
* CALL THE BROWSE SERVICE TO 
* BROWSE THE FILE TAILORING OUTPUT TELOUT. 


* FOR VM, FTOUTPUT MUST SPECIFY THE FILEID OF THE FILE 

* TAILORING OUTPUT MACLIB WITH THE MEMBER NAME SPECIFIED 
* AS A SEPARATE PARAMETER. EXAMPLE: 

* ‘CALL ISPLINK('BROWSE', FTOUTPUT, 'TELOUT');'. 

* THIS FUNCTION IS NOT AVAILABLE UNLESS THE ISPF/PROGRAM 
* DEVELOPMENT FACILITY PROGRAM PRODUCT IS INSTALLED. 


tetdtetkdkedvkvdkicivdecdcKddedlidedckkhekkRekekiietkkekReRdeiesdewKRReRR RR RL 


a a ee 
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CALL ISPLINK('BROWSE', FTOUTPUT); 
END BRSEREP; 


EDITREP: PROCEDURE; 


[BRREERERRRRREEREREREEREREREREEREEE EER EEERERERERR ERE REREREREEERERERER 
* CALL THE EDIT SERVICE TO EDIT THE FILE TAILORING OUTPUT 
* TELOUT. 


* FOR VM, FTOUTPUT MUST SPECIFY THE FILEID OF THE FILE 

% TAILORING OUTPUT MACLIB WITH THE MEMBER NAME SPECIFIED 
* AS A SEPARATE PARAMETER. EXAMPLE: 

* ‘CALL ISPLINK('EDIT', FTOUTPUT, 'TELOUT');'. 

* THIS FUNCTION IS NOT AVAILABLE UNLESS THE ISPF/PROGRAM 
% DEVELOPMENT FACILITY PROGRAM PRODUCT IS INSTALLED. 


oe! jo’ on! oe eee oe" mo! eatae' mate mt ad On! on a oo a lap oe! en oe! eo! ela een! a a om Sad Onto Om! ad On| if ' L en ‘an’ iia et toe eo oe oom on e! or ' oa jam Fad On’ ale fo! an! J oe! 
totededetededodedetetedetoteokdtekkeickeedteiekecReki eed eI cvdtedetckKieck eke / 


ee ee ee 


CALL ISPLINK('EDIT', FTOUTPUT); 
END EDITREP; 


DSTRYRP: PROCEDURE ; 


[RREREREREREREREREREEERERERERERERER EER BREREERERERERREERRERRERESERSRERE 
* CALL THE FTERASE SERVICE TO ¥ 
* DELETE THE FILE TAILORING OUTPUT TELOUT * 


' “ f. 9, ' t ' rs 
HRA EE EE ERNE ER TEER EERE CET EERE EERSTE CRN R ERR REN | 


CALL ISPLINK('FTERASE ', 'TELOUT '); 
ZERMSG = 'TELBO23 '; 
END DSTRYRP; 


RFRSHTB: PROCEDURE ; 


[BRERRRRERREREREREREEEEEEREREREREREREER REEREREECR ERE EER ER EERERREREEERE 
= CALL THE TBEND SERVICE TO * 
as CLOSE THE TABLE TELBOOK WITHOUT SAVING IT ON DISK * 


fa utsnt Les als alent as mlantants nts ata o!, £. f20 ant Pree Y {ao af, font af, f, Pra) f 
WRN TTT TEES TOE TT TERT TERE EBERT ARNT EBC RBAREBRURERERERBRRRBCRBREEERERERERER / 


CALL ISPLINK('TBEND ', TELBOOK); 
CALL ISPLINK('TBOPEN ', TELBOOK); 
CALL ISPLINK('TBSKIP ', TELBOOK); 
ZERMSG = 'TELBO21 '; 

END RFRSHTB; 
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: RMVTABL: PROCEDURE ; 


CALL ISPLINK('TBCLOSE ', TELBOOK); 


[RRR EERE EEREREREREERERERRER EEE CEERERRE EERE EE EERE ER EREERREREER 
* CALL THE TBERASE SERVICE TO ve 
* DELETE THE TABLE TELBOOK FROM THE TABLE OUTPUT LIBRARY * 


HRN TT IEEE EEE ETE ETC VETS BS BETES TET TS TIE TLE TE TES TC TED CICS CTE TET TELE TE TET TC TCT f 


CALL ISPLINK('TBERASE ', TELBOOK); 
CALL ISPLINK('TBCREATE ', TELBOOK, TABKEY, TABVRS); 
ZERMSG = 'TELBO20 '; 

END RMVTABL; 


SAVETAB: PROCEDURE ; 


[RRR EER ERR RE EERE REE ERE REE REECE ER REE TER ERE RTA TEER ER EER ER EER 


* CALL THE TBSAVE SERVICE TO * 
* WRITE THE TABLE TELBOOK FROM VIRTUAL STORAGE TO THE TABLE * 
* OUTPUT LIBRARY ¥ 


HRN ERE EE EERE RCE EE EERE EERE EE REE EEE EER ERE EEE EERE REE | 
CALL ISPLINK('TBSAVE ', TELBOOK); 


ZERMSG = 'TELBO19 '; 
END SAVETAB; 


Cc END TELESRV; 
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B 
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Cc 
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cobol implementation 
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M 
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Oo 
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BROWSE 98 
CONTROL 89 
declare statements 27 
delete variables 28 
DISPLAY 


105 


106 


employee records 26 
telephone book 97 
EDIT 98 
FTCLOSE 97 
FTERASE 98 
FTINCL 97 
FTOPEN 97 
included segment 
define variable 27 
delete variables 28 
LOG 
employee records 26 
telephone book 90 
panel EMPL 
definition 25 
display 25 


panel TPANEL1, display 88 


primary option menu panel 
SELECT 90 
SETMSG 91 
TBADD 
employee records 26 
telephone book 93 
TBBOTTOM 94 
TBCLOSE 
employee records 26 
telephone book 90, 99 
TBCREATE 
employee records 26 
telephone book 90, 99 
TBDELETE 
employee records 26 
telephone book 94 
TBDISPL 93 
TBEND 98 
TBERASE 99 
TBEXIST 96 
TBGET 
employee records 26 
telephone book 96 
TBMOD 95 
TBOPEN 
employee records 26 
telephone book 89, 98 
TBPUT 
employee records 26 
telephone book 94 
TBQUERY 96 
TBSARG 95 
TBSAVE 99 
TBSCAN 95 
TBSKIP 90, 94, 98 
TBTOP 93 


TBVCLEAR 95, 96 
TPANEL1 30 
variable definitions 27 
VCOPY 96 
VDEF INE 
employee records 28 
telephone book 92 
VDELETE 
employee records 28 
telephone book 92 
VGET 92 
VPUT 90, 92 
VREPLACE 97 
VRESET 91 
pll implementation 
employee records 25 
telephone book 86 
primary option menu 1 
primary option menu panel EMPL 
clist 8 
cobol 15 
exec2 11 
fortran 20 
pll 25 


S 


SELECT 
clist 42 
cobol 64 
exec2 52 
fortran 78 


pll 90 
sequential 

data set iv 

file iv 
SETMSG 

clist 42 

cobol 65 


exec2 52 
fortran 78 
pll 91 


T 


table display panel, TPANEL2 
TBADD, clist 
employee records 10 
telephone book 43 
cobol 
employee records 20 


ISPF Dialog Management Services Examples 


35 


telephone book 68 
C employee records 3 

exec2 

employee records 13 

telephone book 54 
fortran 

employee records 23 

telephone book 81 
pll 

employee records 26 

telephone book 93 


TBBOTTOM 
clist 44 
cobol 69 


: exec2 55 
fortran 82 
pll 94 
TBCLOSE, clist 42 

employee records 11 
telephone book 47 

cobol 
employee records 18 
telephone book 64, 73 

exec2 
employee records 14 
telephone book 52, 59 


( fortran 
employee records 24 


telephone book 78, 86 
pll 

employee records 26 

telephone book 90, 99 

TBCREATE, clist 
employee records 9 
telephone book 41, 47 
J cobol 

employee records 18 

telephone book 64, 73 
employee records 2 
exec2 59 

employee records 12 

telephone book 51 
fortran 

employee records 22 

telephone book 77, 86 
pll 

employee records 26 

telephone book 90, 99 

TBDELETE, clist 
employee records 10 
telephone book 44 


cobol 
( employee records 20 


telephone book 69 
employee records 3 
exec2 

employee records 14 

telephone book 55 
fortran 

employee records 24 

telephone book 82 
pll 

employee records 26 

telephone book 94 


TBDISPL 
clist 43 
cobol 68 
exec2 54 
fortran 81 
pll 93 
TBEND 
clist 46 
cobol 73 


exec2 59 
fortran 86 


pll 98 
TBERASE 

clist 47 

cobol 73 


exec2 59 
fortran 86 


pll 99 
TBEXIST 

clist 45 

cobol 70 


exec2 5/7 
fortran 83 
pll 96 
TBGET, clist 
employee records 9 
telephone book 45 
cobol 
employee records 20 
telephone book 71 
exec2 
employee records 13 
telephone book 57 
fortran 
employee records 22 
telephone book 84 
pli 
employee records 26 
telephone book 96 


TBMOD 
clist 44 
cobol 69 


Index 


exec2 56 
fortran 82 
pli 95 
TBOPEN, clist 
employee records 9 
telephone book 41, 46 
cobol 
employee records 18 
telephone book 63, 73 
exec2 
employee records 12 
telephone book 51, 59 
fortran 
employee records 22 
telephone book 77, 86 
pll 
employee records 26 
telephone book 89, 98 
TBPUT, clist 
employee records 10 
telephone book 44 
cobol 
employee records 20 
telephone book 69 
employee records 3 
exec2 
employee records 14 
telephone book 55 
fortran 
employee records 23 
telephone book 82 
pll 
employee records 26 
telephone book 94 


TBQUERY 
clist 45 
cobol 71 
exec2 57 
fortran 84 
pll 96 
TBSARG 
clist 47 
cobol 70 
exec2 56 
fortran 83 
pli 95 
TBSAVE 
clist 47 
cobol 73 
exec2 59 
fortran 86 
pll 99 
TBSCAN 


clist 47 
cobol 70 
exec2 56 
fortran 83 
telephone book 83 
pli 95 
TBSKIP, clist 41, 44 
telephone book 46 
cobol 64, 69, 73 
exec2 51, 59 
fortran 77, 82, 86 
pll 90, 94, 98 
TBTOP 
clist 43 
cobol 68, 70 
exec2 54, 56 
fortran 81, 83 


pli 93 
TBVCLEAR 

clist 45, 47 

cobol 70 


exec2 56, 57 
fortran 83 
pll 95, 96 
telephone book 29 

clist implementation 38 
cobol implementation 60 
common dialog components 
CPANEL1 

clist 30 

exec2 30 
dialog components 30 
exec2 implementation 48 


34 


file tailoring skeleton 38 


fortran implementation 73 


FPANEL1, fortran 30 
invocation 30 

ISPSTART command 31 
main function routine 33 
messages 37 
organization 32 

overview 29 

pll implementation 86 


processing description 33 


TBSKIP, clist 44 
TPANEL1 
cobol 30 
pli 30 
terminology 
command procedure’ iv 
file iv 
library iv 
TPANEL1, cobol, display 62 


108 ISPF Dialog Management Services Examples 


cobol definition 60 
pll definition 87 
pll display 88 
telephone book 30, 34 
TPANEL2 panel 
definition 35 
display 35 
TPANEL3 panel 
definition 36 
display 36 


V 


variable definitions, pll 
variables, cobol 16 
VCOPY 
cobol 71 
fortran 80, 84 
pll 96 
VDEFINE, cobol 
employee records 17 
telephone book 67 
fortran 
employee records 21 
telephone book 80 
pll 
employee records 28 
telephone book 92 


27 


VDELETE 
cobol 67 
fortran 
employee records 24 
telephone book 80 
pll 
employee records 28 
telephone book 92 
VGET 
clist 43 
cobol 67 
exec2 53 
fortran 80 
pll 92 
VPUT 
clist 42, 48 
cobol 64, 67 
exec2 52, 54 
fortran 7/7, 80 
pll 90, 92 
VREPLACE 
cobol 71 
fortran 84 
pll 97 
VRESET, cobol 
employee records 18 
telephone book 65 
fortran 78 
pli 91 


Index 


109 


110 ISPF Dialog Management Services Examples 


C 


Note: Staples can cause problems with automated mail sorting equipment. 


Piease use pressure sensitive or other gummed tape to seal this form. 


SS SS SS SS SS ES SS SS SSS SS Ss Cut or Fold Along Line ae a oe ee eee ee Ge ee es er og oe 


Interactive 


System Productivity Facility: READER'S 
Dialog Management COMMENT 
Services Examples SC34-2085-0 FORM 


This manual is part of a library that serves as a reference source for systems analysts, programmers, 
and operators of IBM systems. This form may be used to communicate your views about this 
publication. It will be sent to the author’s department for whatever review and action, if any, is 
deemed appropriate. Comments may be written in your own language; use of English is not required. 


IBM may use or distribute any of the information you supply in any way it believes appropriate 
without incurring any obligation whatever. You may, of course, continue to use the information 
you supply. 

Note: Copies of IBM publications are not stocked at the location to which this form is addressed. 
Please direct any requests for copies of publications, or for assistance in using your IBM system, 
to your IBM representative or to the IBM branch office serving your locality. 


Possible topics for comments are: 


Clarity Accuracy Completeness Organization Coding Retrieval Legibility 


If you wish a reply, give your name and mailing address: 


What is your occupation? 
Number of latest Technical Newsletter (if any) concerning this publication: 


Thank you for your cooperation. No postage stamp necessary if mailed in the U.S.A. (Elsewhere, 
an IBM office or representative will be happy to forward your comments.) 


ST34-2085-0 
(Formerly SC34-2085-0) 


Reader’s Comment Form 


Fold and tape Please Do Not Staple Fold and tape 


-—e ora ss sr om 8] BuOly Piog 10 1ND-— -— -- 


NO POSTAGE 


NECESSARY 
IF MAILED 
IN THE 
UNITED STATES 


BUSINESS REPLY MAIL 


FIRST CLASS PERMIT NO. 40 ARMONK,N.Y. 


POSTAGE WILL BE PAID BY ADDRESSEE: 


International Business Machines Corporation 
Department 259, Building 931 

P.O. Box 390 

Poughkeepsie, New York 12602 


eee ee ee eee eee ee eee ee eee eee eee eee eee eee eee eee eee eee eee eee ee eee eee ee eee eee) 


Fold and tape Piease Do Not Staple Fold and tape 


(0-G802-vEDS Ajzawu04) 


Saj|dwexy SadiAlaG yuawaheueyz Hojeiq :4dS| 


"W'S'N Ul paqulid 


0-S80¢-vELS 


c 


te, (i eee 


